change Scribble HTML button to set current-directory while running

Closes PR 10944
 Merge to v5.0
This commit is contained in:
Matthew Flatt 2010-05-31 14:02:42 -06:00
parent c18603f767
commit 7a2ac10e0f

View File

@ -30,11 +30,12 @@
(parameterize ([current-namespace (make-base-namespace)]
[current-output-port p]
[current-error-port p]
[current-directory base]
[current-command-line-arguments
(list->vector
(append
extra-cmdline
(list "--dest" (path->string base) "--quiet")
(list "--quiet")
(list mode (if (path? fn) (path->string fn) fn))))])
(namespace-attach-module (namespace-anchor->empty-namespace anchor) 'setup/xref)
(dynamic-require 'scribble/run #f)