jit tweaks

svn: r12144 original commit: 00d2aabaf0
2008-10-27 19:00:13 +00:00 · 2008-10-27 19:00:13 +00:00 · 8b1b6eec7f
commit 8b1b6eec7f
parent 67030288cd
1 changed files with 1 additions and 1 deletions
--- a/collects/compiler/decompile.ss
+++ b/collects/compiler/decompile.ss
@ -299,7 +299,7 @@
                                      zero? negative? exact-nonnegative-integer?  
                                      exact-positive-integer?
                                      car cdr caar cadr cdar cddr
-                                      mcar mcdr unbox syntax-e
+                                      mcar mcdr unbox vector-length syntax-e
                                      add1 sub1 - abs bitwise-not))]
             [(3) (memq (car a) '(eq? = <= < >= >
                                      bitwise-bit-set? char=?