From e5335e688f1f1679cd6e28a0b17b5053fcd8a993 Mon Sep 17 00:00:00 2001
From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sun, 28 Mar 2010 15:07:46 -0700
Subject: [PATCH] Make SYMBOL? and SYMBOL->STRING foldable operators.

---
 src/runtime/scomb.scm | 2 ++
 1 file changed, 2 insertions(+)

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?
 	       ))))
-- 
2.25.1