removed unused variable

svn: r12675
This commit is contained in:
Eli Barzilay 2008-12-02 14:39:36 +00:00
parent bf8b409174
commit 10c9b39bfe

View File

@ -563,7 +563,6 @@
(car (evaluator-message-args expr)) '()))]
[else (error 'evaluator "internal error, bad message: ~e" msg)]))
(user-eval expr)))
(define linked-outputs? #f)
(define (make-output what out set-out! allow-link?)
(cond [(not out) (open-output-nowhere)]
[(and (procedure? out) (procedure-arity-includes? out 0)) (out)]