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

trying to make whalesong work with 5.3

Browse Source
This commit is contained in:
Danny Yoo 2012-06-24 14:13:18 -04:00
parent df0d127f09
commit 8b45f7f4e0
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/compiler.rkt
View File

@ -1887,7 +1887,7 @@
(build-list count (lambda: ([i : Natural]) (build-list count (lambda: ([i : Natural])
(make-EnvLexicalReference (+ i (make-EnvLexicalReference (+ i
(InstallValue-depth exp) (InstallValue-depth exp)
(sub1 count)) (ensure-natural (sub1 count)))
(InstallValue-box? exp)))) (InstallValue-box? exp))))
(cons (make-Reg 'val) (cons (make-Reg 'val)
(build-list (sub1 count) (lambda: ([i : Natural]) (build-list (sub1 count) (lambda: ([i : Natural])

3
js-assembler/assemble-helpers.rkt
View File

@ -185,8 +185,7 @@
(path->string val))] (path->string val))]
[(vector? val) [(vector? val)
(format "RT.makeVector([~a])" (format "RT.makeVector([~a])"
(string-join (for/list ([elt (vector->list val)]) (string-join (map loop (vector->list val))
(loop elt))
","))] ","))]
[(box? val) [(box? val)
(format "RT.makeBox(~s)" (format "RT.makeBox(~s)"