From c3efb458ecde8f2b30f5b51ebeda24fbaf894ce9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 8 Feb 2011 19:44:03 +0000
Subject: 	* interp/lisp-backend.boot: Translate %ident? to IDENTP, not
 SYMBOLP. 	* interp/compiler.boot (compMatch): test for identifier, not 
 atomic value. 	* algebra/syntax.spad.pamphlet (Syntax): Tidy.

---
 src/interp/lisp-backend.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/lisp-backend.boot')

diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot
index 646dab26..151520d1 100644
--- a/src/interp/lisp-backend.boot
+++ b/src/interp/lisp-backend.boot
@@ -570,7 +570,7 @@ for x in [
     -- symbol unary functions
     ['%gensym,  :'GENSYM],
     ['%sname,   :'SYMBOL_-NAME],
-    ['%ident?,  :'SYMBOLP],
+    ['%ident?,  :'IDENTP],
     ['%property,:'GET],
 
     -- string functions
-- 
cgit v1.2.3