From fe6c0a14430cd1952e80c8cf0bed6250e778a714 Mon Sep 17 00:00:00 2001 From: Brady McDonough Date: Tue, 6 Apr 2021 01:16:46 -0600 Subject: [PATCH] newline not included in if body --- tk/listlogic.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tk/listlogic.scm b/tk/listlogic.scm index 3e84926..956d719 100644 --- 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)) - (newline))) + (begin (if (not $cond) (begin (display $message) + (newline))))) ((display-if-not $cond . $messages) (display-if-not $cond (string-concatenate/shared `$messages)))))