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

fixing typo

Browse Source
This commit is contained in:
dyoo 2011-03-31 15:34:06 -04:00
parent ad71a72121
commit 23b389a52a
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
simulator.rkt
View File

@ -372,7 +372,7 @@
[(>=) [(>=)
(chain-compare >= (map ensure-real-number rand-vals))] (chain-compare >= (map ensure-real-number rand-vals))]
[(cons) [(cons)
(make-MutablePair (first rand-vals) (ensure-list (second rand-vals)))] (make-MutablePair (first rand-vals) (second rand-vals))]
[(car) [(car)
(MutablePair-h (ensure-mutable-pair (first rand-vals)))] (MutablePair-h (ensure-mutable-pair (first rand-vals)))]
[(cdr) [(cdr)

3
test-conform.rkt
View File

@ -68,4 +68,5 @@
(test (read (open-input-file "tests/conform/program0.sch")) (test (read (open-input-file "tests/conform/program0.sch"))
(port->string (open-input-file "tests/conform/expected0.txt")) (port->string (open-input-file "tests/conform/expected0.txt"))
#:debug? #t) ;#:debug? #t
)