From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Feb 2018 20:27:45 +0000 (-0800)
Subject: Fix thinko.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~235
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c408080bff7299965bd63595dbf3b0ac403344bb;p=mit-scheme.git

Fix thinko.
---

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 ()