removed unused variable
svn: r12675
This commit is contained in:
parent
bf8b409174
commit
10c9b39bfe
|
@ -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)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user