;;; 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
(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-downcase))
(->environment '()))
;; Make new CREF's .pkds usable.
(eval