some zo-marshal repairs

svn: r13984 original commit: 946a39221a
2009-03-06 17:37:28 +00:00 · 2009-03-06 17:37:28 +00:00 · c350bac4dd
commit c350bac4dd
parent cde9437405
1 changed files with 3 additions and 2 deletions
--- a/collects/compiler/zo-marshal.ss
+++ b/collects/compiler/zo-marshal.ss
@ -663,8 +663,9 @@
   [(svector? expr)
    (out-byte CPT_SVECTOR out)
    (out-number (vector-length (svector-vec expr)) out)
-    (for ([n (in-vector (svector-vec expr))])
-      (out-number n out))]
+    (let ([vec (svector-vec expr)])
+      (for ([n (in-range (sub1 (vector-length vec)) -1 -1)])
+        (out-number (vector-ref vec n) out)))]
   [else
    (out-byte CPT_QUOTE out)
    (let ([s (open-output-bytes)])