From b7f6cc2e1db1bfd6a069dbe9ac427db5db2d266d Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 2 Feb 2006 09:29:14 +0000
Subject: [PATCH] double bug in include

svn: r2083
---
 collects/preprocessor/mztext.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/preprocessor/mztext.ss b/collects/preprocessor/mztext.ss
index c784a20bb1..8682cdc4f7 100644
--- a/collects/preprocessor/mztext.ss
+++ b/collects/preprocessor/mztext.ss
@@ -320,11 +320,12 @@
                    (let ([arg (get-arg)])
                      (if (eof-object? arg)
                        (error 'include "expecting a file argument")
-                       (list (get-arg))))
+                       (list arg)))
                    files))
   (define curdir (cd))
   (define (cd+file f)
-    (let*-values ([(dir name dir?)
+    (let*-values ([(f) (if (bytes? f) (bytes->path f) f)]
+                  [(dir name dir?)
                    (if (input-port? f) (values #f #f #f) (split-path f))]
                   [(dir) (if (path? dir) dir (cd))])
       ;; could `add-to-input' and then `run' if we wrap this by a (cd dir), but