From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Nov 2018 02:44:24 +0000 (-0800)
Subject: Move string-for-primitive to (runtime).
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~23
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=39fd31f1f7afd6a0d50455aeedb23798e77070eb;p=mit-scheme.git

Move string-for-primitive to (runtime).
---

diff --git a/src/edwin/edwin.pkg b/src/edwin/edwin.pkg
index a1a03839e..4623e638d 100644
--- a/src/edwin/edwin.pkg
+++ b/src/edwin/edwin.pkg
@@ -104,6 +104,7 @@ USA.
   (parent ())
   (import (runtime)
 	  define-primitives
+	  string-for-primitive
 	  ucode-primitive
 	  ucode-type)
   (import (runtime char-syntax)
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 0a8d87041..7ee5cadbd 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -1092,7 +1092,6 @@ USA.
 	  string-find-previous-char-in-set
 	  string-foldcase
 	  string-for-each
-	  string-for-primitive		;export to (runtime) after 9.3
 	  string-hash			;SRFI-69
 	  string-ci-hash		;SRFI-69
 	  string-head
@@ -1141,6 +1140,8 @@ USA.
 	  substring
 	  substring?
 	  vector->string)
+  (export (runtime)
+	  string-for-primitive)
   (export (runtime symbol)
 	  %ascii-ustring!
 	  %ascii-ustring-allocate