projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
cc0a2b7
)
Fix thinko.
author
Chris Hanson
<org/chris-hanson/cph>
Mon, 19 Feb 2018 20:27:45 +0000
(12:27 -0800)
committer
Chris Hanson
<org/chris-hanson/cph>
Mon, 19 Feb 2018 20:27:45 +0000
(12:27 -0800)
src/runtime/syntax-parser.scm
patch
|
blob
|
history
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 ()