From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sun, 28 Mar 2010 22:07:46 +0000 (-0700)
Subject: Make SYMBOL? and SYMBOL->STRING foldable operators.
X-Git-Tag: 20100708-Gtk~71^2~10
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e5335e688f1f1679cd6e28a0b17b5053fcd8a993;p=mit-scheme.git

Make SYMBOL? and SYMBOL->STRING foldable operators.
---

diff --git a/src/runtime/scomb.scm b/src/runtime/scomb.scm
index 5a92ec731..2806e03d4 100644
--- a/src/runtime/scomb.scm
+++ b/src/runtime/scomb.scm
@@ -118,6 +118,8 @@ USA.
 	       ;; be side-effected, but it is useful to be able to
 	       ;; constant fold this primitive anyway.
 	       STRING->SYMBOL
+	       SYMBOL->STRING
+	       SYMBOL?
 	       ZERO-FIXNUM?
 	       ZERO?
 	       ))))