original commit: 4ffcc99c3acec663bd7429f22b57211fcd2a8e0b
This commit is contained in:
Matthew Flatt 2004-09-10 15:20:27 +00:00
parent b98117e0b4
commit 2e008db7b3

View File

@ -349,7 +349,7 @@
(define (indirect v w i)
(vector-ref v (vector-ref w i)))
(if (empty? ops)
(list a b c d x)
(list a b c d X)
(let* ((op (first ops))
(indices (first op))
(k (second op))