From ebafd5f858e29cc75f89e098cd8d564cb7d92144 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 15 Dec 2010 10:00:12 +0000
Subject: 	* boot/tokens.boot: symbolName is now a builtin function. 
 * interp/sys-utility.boot (stringImage): New. 	* interp/format.boot
 (form2String1): Use it. Tidy.

---
 src/boot/tokens.boot | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/boot/tokens.boot')

diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot
index 8122782f..789a2002 100644
--- a/src/boot/tokens.boot
+++ b/src/boot/tokens.boot
@@ -289,6 +289,7 @@ for i in [ _
   ["substitute",  "SUBST"]  , _
   ["substitute!", "NSUBST"]  , _
   ["symbol?",  "SYMBOLP"]  , _
+  ["symbolName", "SYMBOL-NAME"], _
   ["take",        "TAKE"]  , 
   ["third",      "CADDR"] , _
   ["toString", "WRITE-TO-STRING"], _
-- 
cgit v1.2.3