aboutsummaryrefslogtreecommitdiff
path: root/src/interp/fnewmeta.lisp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-06-15 05:13:27 +0000
committerdos-reis <gdr@axiomatics.org>2009-06-15 05:13:27 +0000
commite8129483c25d61df0ccb18afd29b93844c814709 (patch)
treedfbf1da0bf211a3468eda773423d18d937e5b5f5 /src/interp/fnewmeta.lisp
parent372cd9bfe6aa41bacd17b25579a10a69b3933e2a (diff)
downloadopen-axiom-e8129483c25d61df0ccb18afd29b93844c814709.tar.gz
* interp/fnewmeta.lisp (PARSE-Scheme): Tidy.
* interp/format.boot (dollarPercentTran): Translate T$ too. (application2String): Handle quasiquotations. * interp/postpar.boot (killColons): Don't remove quantified variables.
Diffstat (limited to 'src/interp/fnewmeta.lisp')
-rw-r--r--src/interp/fnewmeta.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/fnewmeta.lisp b/src/interp/fnewmeta.lisp
index e6af7e4c..b4b3b789 100644
--- a/src/interp/fnewmeta.lisp
+++ b/src/interp/fnewmeta.lisp
@@ -481,7 +481,7 @@
(OR (AND (|PARSE-Quantifier|)
(MUST (|PARSE-QuantifiedVariableList|))
(MUST (MATCH-ADVANCE-STRING "."))
- (MUST (|PARSE-Application|))
+ (MUST (|PARSE-Expr| 200))
(MUST (PUSH-REDUCTION '|PARSE-Forall|
(CONS (POP-STACK-3)
(CONS (POP-STACK-2)