From d162667da5c50936e813f462efe89c8cec520c55 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Wed, 14 Jul 2010 14:36:22 -0400
Subject: [PATCH] Use (file "...extra-file...") in `dynamic-require'.

---
 collects/meta/web/build.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/meta/web/build.rkt b/collects/meta/web/build.rkt
index 772857faf2..e0caf1cf5d 100755
--- a/collects/meta/web/build.rkt
+++ b/collects/meta/web/build.rkt
@@ -1,5 +1,5 @@
 #!/bin/sh
-#|
+#| -*- scheme -*-
 exe="racket";
 if [ -x "$PLTHOME/bin/racket" ]; then exe="$PLTHOME/bin/racket"; fi
 exec "$exe" "$0" "$@"
@@ -69,7 +69,7 @@ exec "$exe" "$0" "$@"
 (printf "Building ~a content...\n" build-mode)
 (parameterize ([url-roots (and (eq? 'web build-mode) sites)])
   (when (and extra-file (file-exists? extra-file))
-    (dynamic-require extra-file #f))
+    (dynamic-require `(file ,extra-file) #f))
   (parameterize ([current-directory output-dir])
     (render-all)
     (when distribute?