write bytcode insteda of display
svn: r1404
This commit is contained in:
parent
828ea24f04
commit
ed6f45bc3e
|
@ -126,7 +126,7 @@
|
||||||
(emit-string port
|
(emit-string port
|
||||||
"char"
|
"char"
|
||||||
(let ([p (open-output-bytes)])
|
(let ([p (open-output-bytes)])
|
||||||
(display bytecode p)
|
(write bytecode p)
|
||||||
(get-output-bytes p))
|
(get-output-bytes p))
|
||||||
name))
|
name))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user