From 1b6082f93540548e4e60fda194c546de72accb84 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 2 Feb 2001 23:25:37 +0000 Subject: [PATCH] . original commit: 8e1ae82643cfca83ae3e2551b4021ad491eab668 --- collects/mzlib/unitsig.ss | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/mzlib/unitsig.ss b/collects/mzlib/unitsig.ss index a7d8e9d..88d1300 100644 --- a/collects/mzlib/unitsig.ss +++ b/collects/mzlib/unitsig.ss @@ -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