fixing typo

2011-03-31 15:34:06 -04:00 · 2011-03-31 15:34:06 -04:00 · 23b389a52a
commit 23b389a52a
parent ad71a72121
2 changed files with 3 additions and 2 deletions
--- a/simulator.rkt
+++ b/simulator.rkt
@ -372,7 +372,7 @@
          [(>=)   
           (chain-compare >= (map ensure-real-number rand-vals))]
          [(cons)
-           (make-MutablePair (first rand-vals) (ensure-list (second rand-vals)))]
+           (make-MutablePair (first rand-vals) (second rand-vals))]
          [(car)
           (MutablePair-h (ensure-mutable-pair (first rand-vals)))]
          [(cdr)
--- a/test-conform.rkt
+++ b/test-conform.rkt
@ -68,4 +68,5 @@

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