delete sugar/exception
parent
aa1b055a38
commit
3bb5037302
@ -1,10 +0,0 @@
|
|||||||
#lang racket/base
|
|
||||||
(require (for-syntax racket/base))
|
|
||||||
|
|
||||||
(provide (all-defined-out))
|
|
||||||
|
|
||||||
(define-syntax (try stx)
|
|
||||||
(syntax-case stx ()
|
|
||||||
[(_ body ... (except tests ...))
|
|
||||||
#'(with-handlers (tests ...) body ...)]))
|
|
||||||
|
|
Loading…
Reference in New Issue