Now to move the contract info appropriately into sigs from signatures.

svn: r12712

original commit: beb5f195300b0db3dda7c4f8273563ecaeba65f0
This commit is contained in:
Stevie Strickland 2008-12-05 17:55:47 +00:00
parent 5227c36efb
commit 83ff7d7e62

View File

@ -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)])