From cd95e082d76956b527a9dce99bd344c85ac0cc67 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 30 Jun 2010 10:11:04 -0600
Subject: [PATCH] fix guide's use of current-directory at compile time

---
 collects/scribblings/guide/modfile.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/scribblings/guide/modfile.rkt b/collects/scribblings/guide/modfile.rkt
index 3c9734b5dd..ecbe449db4 100644
--- a/collects/scribblings/guide/modfile.rkt
+++ b/collects/scribblings/guide/modfile.rkt
@@ -11,7 +11,9 @@
 (define-syntax (racketmodfile stx)
   (syntax-case stx ()
     [(_ file)
-     (let ([f (path->complete-path (syntax-e #'file))])
+     (let ([f (path->complete-path (syntax-e #'file)
+                                   (or (current-load-relative-directory)
+                                       (current-directory)))])
        (register-external-file f)
        (with-syntax ([(content ...)
                       (call-with-input-file*