From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Mon, 29 Mar 2010 17:14:45 +0000 (-0700)
Subject: Make STRING-LENGTH a foldable operator.
X-Git-Tag: 20100708-Gtk~71^2~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dceba19c6d7d431eb969bae4dba3f7ecf97daf91;p=mit-scheme.git

Make STRING-LENGTH a foldable operator.
---

diff --git a/src/runtime/scomb.scm b/src/runtime/scomb.scm
index 5a92ec731..d9d1c05b6 100644
--- 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?
 	       ))))