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

Add discretionary comments. This is not general-purpose, but specific to the repl situation we need for Whalesong.

Browse Source
This commit is contained in:
Danny Yoo 2013-02-28 16:41:19 -07:00
parent cb2aea9e5a
commit e4509b0886
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
whalesong/repl-compile.rkt
View File

@ -31,6 +31,12 @@
;; repl-compile: any [#:lang module-path] -> compiled-bytecode ;; repl-compile: any [#:lang module-path] -> compiled-bytecode
;; Compiles the given body in a toplevel context under the given language. ;; Compiles the given body in a toplevel context under the given language.
;; Compilation creates a fresh namespace each time to avoid one compilation
;; affecting the other.
;;
;; Note however, that the languages have to make sure not to maintain compilation
;; state themselves, since we reuse the language module to improve repl construction
;; time.
(define (repl-compile body #:lang [language-module-path 'racket/base]) (define (repl-compile body #:lang [language-module-path 'racket/base])
(parameterize ([current-namespace (make-repl-namespace language-module-path)]) (parameterize ([current-namespace (make-repl-namespace language-module-path)])
(compile body))) (compile body)))