From c634e2e76c5d84834a88cb43b30420c0b70ec6cb Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 25 Apr 2017 13:56:00 -0700 Subject: [PATCH] runtime/host-adapter: Add string-foldcase. Train any 9.2 release. --- src/runtime/host-adapter.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 2.25.1