diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-11 18:49:07 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-11 18:49:07 +0000 |
| commit | b9eed452db6231458c941041b7090c0e62426eae (patch) | |
| tree | c7ed30a71f335a39c04c3b63188820e80852650d /src/boot/ast.boot.pamphlet | |
| parent | ef3f39b528532d50813b8754c8ca6ff3fce4f710 (diff) | |
| download | open-axiom-b9eed452db6231458c941041b7090c0e62426eae.tar.gz | |
src/lisp/
2007-09-11 Gabriel Dos Reis <gdr@cs.tamu.edu>
* core.lisp.in (|coreError|): Rename from |error|. Adjust callers.
src/boot/
2007-09-11 Gabriel Dos Reis <gdr@cs.tamu.edu>
* ast.boot.pamphlet (bfCompDef): Call coreError, not error.
* includer.boot.pamphlet (shoeNotFound): Likewise.
(SoftShoeError): Likewise.
Diffstat (limited to 'src/boot/ast.boot.pamphlet')
| -rw-r--r-- | src/boot/ast.boot.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/ast.boot.pamphlet b/src/boot/ast.boot.pamphlet index 09d68b35..25d982f5 100644 --- a/src/boot/ast.boot.pamphlet +++ b/src/boot/ast.boot.pamphlet @@ -176,7 +176,7 @@ bfCompDef x == otherwise => x is [def, op, args, body] => bfDef(def,op,args,body) - error '"invalid AST" + coreError '"invalid AST" bfBeginsDollar x== EQL('"$".0,(PNAME x).0) @@ -1257,7 +1257,7 @@ bfDs n== if n=0 then '"" else CONCAT('"D",bfDs(n-1)) (SETQ |body| (CAR |ISTMP#3|)) 'T)))))))) (|bfDef| |def| |op| |args| |body|)) - ('T (|error| "invalid AST"))))))))) + ('T (|coreError| "invalid AST"))))))))) (DEFUN |bfBeginsDollar| (|x|) (PROG () (RETURN (EQL (ELT "$" 0) (ELT (PNAME |x|) 0))))) |