From 23b389a52a6b8d0939bf7e586075914e95771e67 Mon Sep 17 00:00:00 2001
From: dyoo <dyoo@kfisler-ra1.(none)>
Date: Thu, 31 Mar 2011 15:34:06 -0400
Subject: [PATCH] fixing typo

---
 simulator.rkt    | 2 +-
 test-conform.rkt | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/simulator.rkt b/simulator.rkt
index 51a2a24..8f183f9 100644
--- 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)
diff --git a/test-conform.rkt b/test-conform.rkt
index 52df364..10c6745 100644
--- 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
+      )