From: Chris Hanson Date: Fri, 16 Nov 2018 07:27:17 +0000 (-0800) Subject: Remove workaround for 9.2 compiler bug. X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~86 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b8a15adfa4bfcc446ee4fa5c51dbefb7f773b90c;p=mit-scheme.git Remove workaround for 9.2 compiler bug. --- diff --git a/src/runtime/string.scm b/src/runtime/string.scm index 09891c0b7..e48610c51 100644 --- a/src/runtime/string.scm +++ b/src/runtime/string.scm @@ -1165,11 +1165,8 @@ USA. (fix:- jamo-trailing-end jamo-trailing-start)) (define-integrable jamo-tbase (fix:- jamo-trailing-start 1)) - -;;; These can be integrable after 9.3 is released. -;;; Otherwise they trip a bug in the 9.2 compiler. -(define jamo-tcount (fix:+ jamo-trailing-size 1)) -(define jamo-ncount (fix:* jamo-vowel-size jamo-tcount)) +(define-integrable jamo-tcount (fix:+ jamo-trailing-size 1)) +(define-integrable jamo-ncount (fix:* jamo-vowel-size jamo-tcount)) (define (jamo-leading? char) (and (fix:>= (char->integer char) jamo-leading-start)