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

svn: r415

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/profj/libs/java/lang/installer.ss
View File

@ -8,7 +8,8 @@
(let ([javac (let ([javac
(lambda (file) (lambda (file)
(parameterize ([current-load-relative-directory (parameterize ([current-load-relative-directory
java.lang]) java.lang]
[current-directory java.lang])
(compile-java 'file (compile-java 'file
'file 'file
'full 'full

4
collects/profj/tool.ss
View File

@ -376,8 +376,8 @@
(val-editor (caddr example)) (val-editor (caddr example))
(val (parse-expression (open-input-text-editor val-editor) val-editor level))) (val (parse-expression (open-input-text-editor val-editor) val-editor level)))
(compile-interactions-ast (compile-interactions-ast
(make-var-init (make-var-decl name null type #f #f) val #f #f) (make-var-init (make-var-decl name null type #f #f) val #f)
val-editor level type-recs))) val-editor level type-recs #t)))
contents) contents)
(process-extras (cdr extras) type-recs)))) (process-extras (cdr extras) type-recs))))
((test-case? (car extras)) ((test-case? (car extras))