From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 25 Apr 2017 20:56:00 +0000 (-0700)
Subject: runtime/host-adapter: Add string-foldcase.  Train any 9.2 release.
X-Git-Tag: mit-scheme-pucked-9.2.12~153^2~9
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c634e2e76c5d84834a88cb43b30420c0b70ec6cb;p=mit-scheme.git

runtime/host-adapter: Add string-foldcase.  Train any 9.2 release.
---

diff --git a/src/runtime/host-adapter.scm b/src/runtime/host-adapter.scm
index 94e38aadc..20667844b 100644
--- a/src/runtime/host-adapter.scm
+++ b/src/runtime/host-adapter.scm
@@ -36,7 +36,7 @@ USA.
 ;;; only until the new runtime is released.  They assume the host is
 ;;; the current release (9.2 as of March 2017).
 
-(if (string=? "9.2" (get-subsystem-version-string "release"))
+(if (string-prefix? "9.2" (get-subsystem-version-string "release"))
     (begin
       (eval
        '(begin
@@ -56,7 +56,9 @@ USA.
 		(error "MICROCODE-TYPE: Unknown name" name)))
 
 	  (define (bytes-per-object)
-	    (vector-ref (gc-space-status) 0)))
+	    (vector-ref (gc-space-status) 0))
+
+	  (define string-foldcase string-upcase))
        (->environment '()))
       ;; Make new CREF's .pkds usable.
       (eval