Make SYMBOL? and SYMBOL->STRING foldable operators.

diff --git a/src/runtime/scomb.scm b/src/runtime/scomb.scm
index 5a92ec731651ca3b276e6ab0ec5e3f5d24778b09..2806e03d4578c0d7a287e043f36f818964534547 100644 (file)
--- 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?
               ))))