write bytcode insteda of display

svn: r1404
2005-11-25 12:43:22 +00:00 · 2005-11-25 12:43:22 +00:00 · ed6f45bc3e
commit ed6f45bc3e
parent 828ea24f04
1 changed files with 1 additions and 1 deletions
--- a/collects/compiler/private/vm2c.ss
+++ b/collects/compiler/private/vm2c.ss
@ -126,7 +126,7 @@
 	(emit-string port
 		     "char"
 		     (let ([p (open-output-bytes)])
-		       (display bytecode p)
+		       (write bytecode p)
 		       (get-output-bytes p))
 		     name))