diff options
| -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 |