From d00d265eb3026c34cbcf10b47f5ea155ecbe62d7 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 26 Sep 2009 19:44:31 +0000 Subject: Fix typo --- src/boot/ast.boot | 2 +- 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 -- cgit v1.2.3