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

more fixes

Browse Source
This commit is contained in:
dyoo 2011-03-15 15:38:38 -04:00
parent fc723832c8
commit 9a527d48d4
2 changed files with 4 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
package.rkt
View File

@ -25,18 +25,11 @@
(newline op) (newline op)
;; The support code for call/cc
(for-each (lambda (code)
(displayln code op))
(map assemble-basic-block
(fracture (get-bootstrapping-code))))
(newline op)
(fprintf op "var invoke = ") (fprintf op "var invoke = ")
(assemble/write-invoke (compile (parse source-code) (assemble/write-invoke (append (get-bootstrapping-code)
'val (compile (parse source-code)
'next) 'val
'next))
op) op)
(fprintf op ";\n")) (fprintf op ";\n"))

12
test-assemble.rkt
View File

@ -5,7 +5,6 @@
"parse.rkt" "parse.rkt"
"il-structs.rkt" "il-structs.rkt"
"compile.rkt" "compile.rkt"
"bootstrapped-primitives.rkt"
racket/port racket/port
racket/promise racket/promise
racket/runtime-path) racket/runtime-path)
@ -45,11 +44,6 @@
"(function() { " "(function() { "
runtime runtime
;; The support code for call/cc
(string-join (map assemble-basic-block
(fracture (get-bootstrapping-code)))
"\n")
"return function(success, fail, params){" "return function(success, fail, params){"
snippet snippet
@ -69,12 +63,6 @@
(display "(function() { " op) (display "(function() { " op)
(display runtime op) (display runtime op)
(display
(string-join (map assemble-basic-block
(fracture (get-bootstrapping-code)))
"\n")
op)
(display "var myInvoke = " op) (display "var myInvoke = " op)
(assemble/write-invoke a-statement op) (assemble/write-invoke a-statement op)