From fa86e9ee9f674f9c0aa60f3c060507ba5dd91bb4 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 25 Sep 2008 20:07:07 +0000 Subject: [PATCH] minor formatting svn: r11877 --- collects/scheme/sandbox.ss | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss index 41d0bbd826..c5a477940b 100644 --- a/collects/scheme/sandbox.ss +++ b/collects/scheme/sandbox.ss @@ -332,16 +332,12 @@ ;; transitive requires. (define (build-program language requires input-program) (let* ([body (append (if (and (pair? requires) (eq? 'begin (car requires))) - (cdr requires) - (map (lambda (r) (list #'#%require r)) - requires)) + (cdr requires) + (map (lambda (r) (list #'#%require r)) requires)) (input->code input-program 'program 1))] [use-lang (lambda (lang) `(module program ,lang . ,body))]) - (cond [(decode-language language) - => (lambda (l) - (use-lang l))] - [(module-path? language) - (use-lang language)] + (cond [(decode-language language) => use-lang] + [(module-path? language) (use-lang language)] [(and (list? language) (eq? 'begin (car language))) (append language body)] [else (error 'make-evaluator "bad language spec: ~e" language)])))