From bc5db8e3dfc286ec9ad90dfdc1050b780213ed0a Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Thu, 21 Jul 2005 14:39:22 +0000 Subject: [PATCH] svn: r415 --- collects/profj/libs/java/lang/installer.ss | 3 ++- collects/profj/tool.ss | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/profj/libs/java/lang/installer.ss b/collects/profj/libs/java/lang/installer.ss index e93e91d125..e810699e01 100644 --- a/collects/profj/libs/java/lang/installer.ss +++ b/collects/profj/libs/java/lang/installer.ss @@ -8,7 +8,8 @@ (let ([javac (lambda (file) (parameterize ([current-load-relative-directory - java.lang]) + java.lang] + [current-directory java.lang]) (compile-java 'file 'file 'full diff --git a/collects/profj/tool.ss b/collects/profj/tool.ss index 6224db51a1..8aa9156e15 100644 --- a/collects/profj/tool.ss +++ b/collects/profj/tool.ss @@ -376,8 +376,8 @@ (val-editor (caddr example)) (val (parse-expression (open-input-text-editor val-editor) val-editor level))) (compile-interactions-ast - (make-var-init (make-var-decl name null type #f #f) val #f #f) - val-editor level type-recs))) + (make-var-init (make-var-decl name null type #f #f) val #f) + val-editor level type-recs #t))) contents) (process-extras (cdr extras) type-recs)))) ((test-case? (car extras))