suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor cleanup in utils.

Browse Source
This commit is contained in:
Eric Dobson 2013-11-16 14:02:04 -08:00
parent 7a31c966c8
commit eaaa4b2923
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/mutated-vars.rkt
View File

@ -1,7 +1,6 @@
#lang racket/base #lang racket/base
(require (for-template racket/base) racket/dict (require racket/dict syntax/parse syntax/id-table unstable/sequence)
syntax/parse syntax/id-table unstable/sequence)
;; find and add to mapping all the set!'ed variables in form ;; find and add to mapping all the set!'ed variables in form
;; if the supplied mapping is mutable, mutates it ;; if the supplied mapping is mutable, mutates it

1
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/utils/utils.rkt
View File

@ -139,7 +139,6 @@ at least theoretically.
(make-rename-transformer #'provide/contract) (make-rename-transformer #'provide/contract)
(lambda (stx) (lambda (stx)
(define-syntax-class clause (define-syntax-class clause
#:literals ()
#:attributes (i) #:attributes (i)
(pattern [(~datum struct) (~or nm:id (nm:id super:id)) (flds ...)] (pattern [(~datum struct) (~or nm:id (nm:id super:id)) (flds ...)]
#:with i #'(struct-out nm)) #:with i #'(struct-out nm))