Fix thinko.

diff --git a/src/runtime/syntax-parser.scm b/src/runtime/syntax-parser.scm
index 4da6494ebf06f961eaf925df3a47d67d20c69ff6..6ce08fdd6b38ce9cedc0fd78d88c2603dd55d2ae 100644 (file)
--- 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 ()