diff --git a/scheme/ikarus.boot.8.prebuilt b/scheme/ikarus.boot.8.prebuilt index 0528a28..b092fed 100644 Binary files a/scheme/ikarus.boot.8.prebuilt and b/scheme/ikarus.boot.8.prebuilt differ diff --git a/scheme/last-revision b/scheme/last-revision index eb804fd..1902bae 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1864 +1865 diff --git a/scheme/pass-specify-rep-primops.ss b/scheme/pass-specify-rep-primops.ss index 1b81245..241fd1c 100644 --- a/scheme/pass-specify-rep-primops.ss +++ b/scheme/pass-specify-rep-primops.ss @@ -1226,7 +1226,7 @@ [(V x) (prm 'sll (prm 'srl - (prm 'mref (T x) + (prm 'mref32 (T x) (K (- (+ disp-flonum-data 4) vector-tag))) (K 20)) (K fx-shift))])