fixed minor bug in cogen of vector?

2009-05-28 14:04:19 +03:00 · 2009-05-28 14:04:19 +03:00 · 83d8f051fe
parent 1dd8e71a2c
commit 83d8f051fe
2 changed files with 2 additions and 2 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1796
+1797
--- a/scheme/pass-specify-rep-primops.ss
+++ b/scheme/pass-specify-rep-primops.ss
@ -495,7 +495,7 @@
        [else (check-non-vector x idx)]))
    /section)

-(define-primop vector? unsafe
+(define-primop vector? safe
  [(P x) (sec-tag-test (T x) vector-mask vector-tag fx-mask fx-tag)]
  [(E x) (nop)])