Remove dead code
This commit is contained in:
parent
b0d20f328a
commit
cd6f5a0f59
|
@ -159,14 +159,7 @@
|
||||||
(lambda reply-values
|
(lambda reply-values
|
||||||
(call-with-continuation-prompt (lambda ()
|
(call-with-continuation-prompt (lambda ()
|
||||||
(apply k reply-values)
|
(apply k reply-values)
|
||||||
(error 'reply-to "Script returned directly")
|
(error 'reply-to "Script returned directly"))
|
||||||
;; TODO: v
|
|
||||||
#;(with-handlers [((lambda (e) #t)
|
|
||||||
(lambda (exn)
|
|
||||||
(call-in-raw-context/abort
|
|
||||||
(lambda () (quit-instruction exn '())))))]
|
|
||||||
(apply k reply-values)
|
|
||||||
(error 'reply-to "Script returned directly")))
|
|
||||||
prompt)))
|
prompt)))
|
||||||
|
|
||||||
;; (-> Instruction) -> Nothing
|
;; (-> Instruction) -> Nothing
|
||||||
|
|
Loading…
Reference in New Issue