Minor cleanup in utils.
original commit: eaaa4b2923ab1cfb6dc2f81b272af5ba26580dc7
This commit is contained in:
parent
9b6f54cb10
commit
e461393ea8
|
@ -1,7 +1,6 @@
|
|||
#lang racket/base
|
||||
|
||||
(require (for-template racket/base) racket/dict
|
||||
syntax/parse syntax/id-table unstable/sequence)
|
||||
(require racket/dict syntax/parse syntax/id-table unstable/sequence)
|
||||
|
||||
;; find and add to mapping all the set!'ed variables in form
|
||||
;; if the supplied mapping is mutable, mutates it
|
||||
|
|
|
@ -139,7 +139,6 @@ at least theoretically.
|
|||
(make-rename-transformer #'provide/contract)
|
||||
(lambda (stx)
|
||||
(define-syntax-class clause
|
||||
#:literals ()
|
||||
#:attributes (i)
|
||||
(pattern [(~datum struct) (~or nm:id (nm:id super:id)) (flds ...)]
|
||||
#:with i #'(struct-out nm))
|
||||
|
|
Loading…
Reference in New Issue
Block a user