From b4af4f5e7494ec9d8fd17d3e3df6c264fffb3909 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Fri, 16 Aug 2024 12:55:52 +0300 Subject: Correctly check for the initial when transforming GeneRIF. Signed-off-by: Munyoki Kilyungi --- examples/generif.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/examples/generif.scm b/examples/generif.scm index d4d483e..11235e0 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -115,7 +115,9 @@ (if (string-blank? reason) "" (format #f "gnt:reason ~s ; " reason)) - (if (string-blank? initial) "" (format #f "gnt:initial ~s ; " initial)) + (if (or (null? initial) + (string-blank? initial)) + "" (format #f "gnt:initial ~s ; " initial)) (if (string-blank? category) "" (format #f -- cgit v1.2.3