From b9eed452db6231458c941041b7090c0e62426eae Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 11 Sep 2007 18:49:07 +0000 Subject: src/lisp/ 2007-09-11 Gabriel Dos Reis * core.lisp.in (|coreError|): Rename from |error|. Adjust callers. src/boot/ 2007-09-11 Gabriel Dos Reis * ast.boot.pamphlet (bfCompDef): Call coreError, not error. * includer.boot.pamphlet (shoeNotFound): Likewise. (SoftShoeError): Likewise. --- src/boot/ast.boot.pamphlet | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/boot/ast.boot.pamphlet') 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))))) -- cgit v1.2.3