original commit: 8e1ae82643cfca83ae3e2551b4021ad491eab668
This commit is contained in:
Matthew Flatt 2001-02-02 23:25:37 +00:00
parent 4a9153d2f6
commit 1b6082f935

View File

@ -242,14 +242,15 @@
(get-sig formname (syntax orig) #f s))
(syntax->list (syntax imports)))])
(let ([im-explodeds (explode-named-sigs im-sigs)]
[im-flattened (flatten-signatures im-sigs)])
[im-flattened (apply append (map (lambda (x) (flatten-signature #f x)) im-sigs))]
[d->s (lambda (x) (datum->syntax x (syntax orig) (syntax orig)))])
(with-syntax ([dv/iu (if (syntax-e (syntax global?))
(quote-syntax global-define-values/invoke-unit)
(quote-syntax define-values/invoke-unit))]
[ex-flattened ex-flattened]
[ex-exploded ex-exploded]
[im-explodeds im-explodeds]
[im-flattened im-flattened]
[ex-flattened (d->s ex-flattened)]
[ex-exploded (d->s ex-exploded)]
[im-explodeds (d->s im-explodeds)]
[im-flattened (d->s im-flattened)]
[formname formname])
(syntax
(dv/iu