diff --git a/rmacs/diff.rkt b/rmacs/diff.rkt index 543d035..1f9ec55 100644 --- a/rmacs/diff.rkt +++ b/rmacs/diff.rkt @@ -146,8 +146,8 @@ (profile-thunk (lambda () (diff-indices (make-vector size 'x) - (let ((v (make-vector size 'x))) - (vector-set! v 0 'a) - (vector-set! v 1 'b) - (vector-set! v 2 'c) - v)))))) + (let ((v (make-vector size 'x))) + (vector-set! v 0 'a) + (vector-set! v 1 'b) + (vector-set! v 2 'c) + v))))))