diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-06-15 18:15:17 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-06-15 18:15:17 +0000 |
| commit | 1d8dbf312fdc2165430bfc73939c45f458db7f50 (patch) | |
| tree | 823a96f0806a1e9d05a418425a30418959508d37 /src/interp/fnewmeta.lisp | |
| parent | e8129483c25d61df0ccb18afd29b93844c814709 (diff) | |
| download | open-axiom-1d8dbf312fdc2165430bfc73939c45f458db7f50.tar.gz | |
* interp/define.boot (spadCompileOrSetq): Tidy.
* interp/fnewmeta.lisp (PARSE-Sexpr1): Disable negative integers
in data. A facility not actually used in Spad code.
Diffstat (limited to 'src/interp/fnewmeta.lisp')
| -rw-r--r-- | src/interp/fnewmeta.lisp | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/interp/fnewmeta.lisp b/src/interp/fnewmeta.lisp index b4b3b789..0e248f83 100644 --- a/src/interp/fnewmeta.lisp +++ b/src/interp/fnewmeta.lisp @@ -961,8 +961,9 @@ (AND (MATCH-ADVANCE-STRING "'") (MUST (|PARSE-Sexpr1|)) (PUSH-REDUCTION '|PARSE-Sexpr1| (CONS 'QUOTE (CONS (POP-STACK-1) NIL)))) - (AND (MATCH-ADVANCE-STRING "-") (MUST (|PARSE-IntegerTok|)) - (PUSH-REDUCTION '|PARSE-Sexpr1| (MINUS (POP-STACK-1)))) + ;; next form disabled -- gdr, 2009-06-15. +; (AND (MATCH-ADVANCE-STRING "-") (MUST (|PARSE-IntegerTok|)) +; (PUSH-REDUCTION '|PARSE-Sexpr1| (MINUS (POP-STACK-1)))) (AND (MATCH-ADVANCE-STRING "[") (BANG FIL_TEST (OPTIONAL (STAR REPEATOR (|PARSE-Sexpr1|)))) (MUST (MATCH-ADVANCE-STRING "]")) @@ -995,7 +996,8 @@ (OR (AND (MATCH-STRING "$") (PUSH-REDUCTION '|PARSE-AnyId| (CURRENT-SYMBOL)) (ACTION (ADVANCE-TOKEN))) - (PARSE-KEYWORD)))) + (PARSE-KEYWORD) + (|PARSE-OperatorFunctionName|)))) (DEFUN |PARSE-Sequence| () |