Fix thinko.
authorChris Hanson <org/chris-hanson/cph>
Mon, 19 Feb 2018 20:27:45 +0000 (12:27 -0800)
committerChris Hanson <org/chris-hanson/cph>
Mon, 19 Feb 2018 20:27:45 +0000 (12:27 -0800)
src/runtime/syntax-parser.scm

index 4da6494ebf06f961eaf925df3a47d67d20c69ff6..6ce08fdd6b38ce9cedc0fd78d88c2603dd55d2ae 100644 (file)
@@ -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 ()