Fix psyntax to work in DrDr

svn: r17311
2009-12-15 18:29:59 +00:00 · 2009-12-15 18:29:59 +00:00 · a8851a8a3d
commit a8851a8a3d
parent b6887adfe8
1 changed files with 3 additions and 1 deletions
--- a/collects/tests/mzscheme/benchmarks/common/psyntax.ss
+++ b/collects/tests/mzscheme/benchmarks/common/psyntax.ss
@ -1,5 +1,7 @@
 #lang r5rs
 (#%require scheme/include
-           (only scheme/base time))
+           (only scheme/base time current-directory)
+	   (only mzlib/etc this-expression-source-directory))
+(current-directory (this-expression-source-directory))
 (include "psyntax.sch")