suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use (file "...extra-file...") in `dynamic-require'.

Browse Source
This commit is contained in:
Eli Barzilay 2010-07-14 14:36:22 -04:00
parent 0c6daba7ee
commit d162667da5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/meta/web/build.rkt
View File

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