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

minor formatting

Browse Source 
svn: r11877
This commit is contained in:
Eli Barzilay 2008-09-25 20:07:07 +00:00
parent 0c6b7c4e26
commit fa86e9ee9f
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/scheme/sandbox.ss
View File

@ -332,16 +332,12 @@
;; transitive requires. ;; transitive requires.
(define (build-program language requires input-program) (define (build-program language requires input-program)
(let* ([body (append (if (and (pair? requires) (eq? 'begin (car requires))) (let* ([body (append (if (and (pair? requires) (eq? 'begin (car requires)))
(cdr requires) (cdr requires)
(map (lambda (r) (list #'#%require r)) (map (lambda (r) (list #'#%require r)) requires))
requires))
(input->code input-program 'program 1))] (input->code input-program 'program 1))]
[use-lang (lambda (lang) `(module program ,lang . ,body))]) [use-lang (lambda (lang) `(module program ,lang . ,body))])
(cond [(decode-language language) (cond [(decode-language language) => use-lang]
=> (lambda (l) [(module-path? language) (use-lang language)]
(use-lang l))]
[(module-path? language)
(use-lang language)]
[(and (list? language) (eq? 'begin (car language))) [(and (list? language) (eq? 'begin (car language)))
(append language body)] (append language body)]
[else (error 'make-evaluator "bad language spec: ~e" language)]))) [else (error 'make-evaluator "bad language spec: ~e" language)])))