diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-04-20 15:12:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-04-20 15:12:01 +0000 |
| commit | 4a59904058b23f18702b074a8f945157f65f26d5 (patch) | |
| tree | 0eacf35fad06789704f62f69829e4d6e45a7b84f /src/interp/fnewmeta.lisp | |
| parent | f5b58f8cdbd1370d685a459e0d011a522cddc404 (diff) | |
| download | open-axiom-4a59904058b23f18702b074a8f945157f65f26d5.tar.gz | |
* interp/fnewmeta.lisp: Don't overstep on use namespace with
Attribute, Signature, and Reduce.
* interp/postpar.boot: Likewise.
* interp/ptrees.boot: Likewise. Tidy.
* interp/Makefile.pamphlet (ptrees.$(FASLEXT)): Don't compile as
Old Boot.
Diffstat (limited to 'src/interp/fnewmeta.lisp')
| -rw-r--r-- | src/interp/fnewmeta.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/fnewmeta.lisp b/src/interp/fnewmeta.lisp index feab45b8..b7806f20 100644 --- a/src/interp/fnewmeta.lisp +++ b/src/interp/fnewmeta.lisp @@ -424,13 +424,13 @@ (MUST (OR (AND (MATCH-ADVANCE-STRING ":") (MUST (|PARSE-Expression|)) (PUSH-REDUCTION '|PARSE-Category| - (CONS '|Signature| + (CONS '|%Signature| (CONS (POP-STACK-2) (CONS (POP-STACK-1) NIL)))) (ACTION (|recordSignatureDocumentation| (NTH-STACK 1) G1))) (AND (PUSH-REDUCTION '|PARSE-Category| - (CONS '|Attribute| + (CONS '|%Attribute| (CONS (POP-STACK-1) NIL))) (ACTION (|recordAttributeDocumentation| (NTH-STACK 1) G1)))))))))) @@ -660,7 +660,7 @@ (DEFUN |PARSE-Reduction| () (AND (|PARSE-ReductionOp|) (MUST (|PARSE-Expr| 1000)) (PUSH-REDUCTION '|PARSE-Reduction| - (CONS '|Reduce| + (CONS '|%Reduce| (CONS (POP-STACK-2) (CONS (POP-STACK-1) NIL)))))) |