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

fixing

Browse Source
This commit is contained in:
Danny Yoo 2011-03-14 17:17:00 -04:00
parent 1e83a6f8e5
commit 10aff9a7e1
3 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
simulator-helpers.rkt
View File

@ -89,6 +89,10 @@
(make-undefined)] (make-undefined)]
[(procedure? v) [(procedure? v)
(error 'racket->PrimitiveValue "Can't coerse procedure")] (error 'racket->PrimitiveValue "Can't coerse procedure")]
[(primitive-proc? v)
v]
[(closure? v)
v]
[(vector? v) [(vector? v)
(apply vector (map racket->PrimitiveValue (vector->list v)))] (apply vector (map racket->PrimitiveValue (vector->list v)))]
[(pair? v) [(pair? v)

4
test-all.rkt
View File

@ -4,5 +4,5 @@
"test-simulator.rkt" "test-simulator.rkt"
"test-compiler.rkt" "test-compiler.rkt"
"test-assemble.rkt" "test-assemble.rkt"
"test-browser-evaluate.rkt" #;"test-browser-evaluate.rkt"
"test-package.rkt") #;"test-package.rkt")

2
test-conform.rkt
View File

@ -64,6 +64,6 @@
(current-simulated-output-port (current-output-port)) (current-simulated-output-port (current-output-port))
(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)