suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 4ffcc99c3acec663bd7429f22b57211fcd2a8e0b
This commit is contained in:
Matthew Flatt 2004-09-10 15:20:27 +00:00
parent b98117e0b4
commit 2e008db7b3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/handin-server/md5.ss
View File

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