Now to move the contract info appropriately into sigs from signatures.
svn: r12712 original commit: beb5f195300b0db3dda7c4f8273563ecaeba65f0
This commit is contained in:
parent
5227c36efb
commit
83ff7d7e62
|
@ -123,7 +123,8 @@
|
|||
(define-for-syntax (build-val+macro-defs sig)
|
||||
(with-syntax ([(((int-ivar . ext-ivar) ...)
|
||||
((((int-vid . ext-vid) ...) . vbody) ...)
|
||||
((((int-sid . ext-sid) ...) . sbody) ...))
|
||||
((((int-sid . ext-sid) ...) . sbody) ...)
|
||||
(((int-cid . ext-cid) . cbody) ...))
|
||||
(map-sig (lambda (x) x)
|
||||
(make-syntax-introducer)
|
||||
sig)])
|
||||
|
|
Loading…
Reference in New Issue
Block a user