aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/boot/ast.boot2
-rw-r--r--src/boot/strap/ast.clisp3
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