diff options
| -rwxr-xr-x | examples/generif.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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 |