newline not included in if body

5 years ago · fe6c0a1443
parent 3a7ee19cab
commit fe6c0a1443
1 changed files with 2 additions and 2 deletions
--- a/tk/listlogic.scm
+++ b/tk/listlogic.scm
@ -65,7 +65,7 @@
    ((display-if-not $cond)
     (syntax-error "Must provide a string to (display-if-not)"))
    ((display-if-not $cond $message)
-     (begin (if (not $cond) (display $message))
+     (begin (if (not $cond) (begin (display $message)
-            (newline)))
+                                   (newline)))))
    ((display-if-not $cond . $messages)
     (display-if-not $cond (string-concatenate/shared `$messages)))))