From 83d8f051fe7bd25f6618e4dd0e324ba54c826268 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Thu, 28 May 2009 14:04:19 +0300 Subject: [PATCH] fixed minor bug in cogen of vector? --- scheme/last-revision | 2 +- scheme/pass-specify-rep-primops.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/last-revision b/scheme/last-revision index b4c6992..88dd643 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1796 +1797 diff --git a/scheme/pass-specify-rep-primops.ss b/scheme/pass-specify-rep-primops.ss index 55cf25c..c561662 100644 --- 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)])