diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-26 19:44:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 19:44:31 +0000 |
| commit | d00d265eb3026c34cbcf10b47f5ea155ecbe62d7 (patch) | |
| tree | a6c9152593678c2b1ce92cc9485d8f01afb87b1c | |
| parent | 1ea145d58ec94029d4f6e30a6f854f728154ad8c (diff) | |
| download | open-axiom-d00d265eb3026c34cbcf10b47f5ea155ecbe62d7.tar.gz | |
Fix typo
| -rw-r--r-- | src/boot/ast.boot | 2 | ||||
| -rw-r--r-- | src/boot/strap/ast.clisp | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index e4501f1b..5eb147ed 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -670,7 +670,7 @@ bfIS1(lhs,rhs) == bfHas(expr,prop) == IDENTP prop => ["GET",expr,["QUOTE",prop]] - bpSpecificErrorAtToken('"expected identifier as property name") + bpSpecificErrorHere('"expected identifier as property name") bfApplication(bfop, bfarg) == bfTupleP bfarg => [bfop,:rest bfarg] diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index e60ca665..94c01076 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -1058,8 +1058,7 @@ (DEFUN |bfHas| (|expr| |prop|) (COND ((IDENTP |prop|) (LIST 'GET |expr| (LIST 'QUOTE |prop|))) - (T (|bpSpecificErrorAtToken| - "expected identifier as property name")))) + (T (|bpSpecificErrorHere| "expected identifier as property name")))) (DEFUN |bfApplication| (|bfop| |bfarg|) (COND |