From ed6f45bc3ee0cd0cb7f51dfa12a556c4d36ba085 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 25 Nov 2005 12:43:22 +0000
Subject: [PATCH] write bytcode insteda of display

svn: r1404
---
 collects/compiler/private/vm2c.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/compiler/private/vm2c.ss b/collects/compiler/private/vm2c.ss
index 2d59f607e4..ab57519b66 100644
--- 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))