From c408080bff7299965bd63595dbf3b0ac403344bb Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 19 Feb 2018 12:27:45 -0800 Subject: [PATCH] Fix thinko. --- src/runtime/syntax-parser.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/syntax-parser.scm b/src/runtime/syntax-parser.scm index 4da6494eb..6ce08fdd6 100644 --- a/src/runtime/syntax-parser.scm +++ b/src/runtime/syntax-parser.scm @@ -71,7 +71,7 @@ USA. (%new-output) (lambda (input senv output failure) (declare (ignore senv failure)) - (if (%input-null? input) + (if (not (%input-null? input)) (error "Rule failed to match entire form.")) (output 'get-only)) (lambda () -- 2.25.1