Move string-for-primitive to (runtime).

diff --git a/src/edwin/edwin.pkg b/src/edwin/edwin.pkg
index a1a03839ecaaa920d7485d975580585d98f6076f..4623e638d342e89c098d96905b3d61b4b12f8b61 100644 (file)
--- 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 0a8d87041f8b277dc34497aa0d744752bc5b68e0..7ee5cadbd979a5df89a9f7013ff3d22efbdca662 100644 (file)
--- 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