Make STRING-LENGTH a foldable operator.

diff --git a/src/runtime/scomb.scm b/src/runtime/scomb.scm
index 5a92ec731651ca3b276e6ab0ec5e3f5d24778b09..d9d1c05b690c08c44a8ce2f0dbea3ca37b3e7be9 100644 (file)
--- a/src/runtime/scomb.scm
+++ b/src/runtime/scomb.scm
@@ -114,10 +114,11 @@ USA.
               POSITIVE-FIXNUM?
               POSITIVE?
               PRIMITIVE-PROCEDURE-ARITY
-              ;; STRING->SYMBOL is a special case.  Strings have can
+              ;; STRING->SYMBOL is a special case.  Strings can
               ;; be side-effected, but it is useful to be able to
               ;; constant fold this primitive anyway.
               STRING->SYMBOL
+              STRING-LENGTH
               ZERO-FIXNUM?
               ZERO?
               ))))