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