svn: r415

This commit is contained in:
Kathy Gray 2005-07-21 14:39:22 +00:00
parent 55a067ac2e
commit bc5db8e3df
2 changed files with 4 additions and 3 deletions

View File

@ -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

View File

@ -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))