From 3f5550e7054999f5008c65bcae4f2035283e0428 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 28 Apr 2008 21:21:26 +0000 Subject: [PATCH] fix svn: r9516 --- collects/typed-scheme/private/unit-utils.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/typed-scheme/private/unit-utils.ss b/collects/typed-scheme/private/unit-utils.ss index 57d77169fd..bab4d5a7bf 100644 --- a/collects/typed-scheme/private/unit-utils.ss +++ b/collects/typed-scheme/private/unit-utils.ss @@ -3,7 +3,7 @@ (require scheme/unit (for-syntax scheme/base - (only-in srfi/1/list s:member s:delete-duplicates) + (only-in srfi/1/list s:member delete-duplicates) scheme/unit-exptime scheme/match)) @@ -59,10 +59,10 @@ [imps* (map datum->sig-elem (filter (lambda (imp) (not (sig-in-sigs? imp exps))) imps))]) (values imps* exps*)))) - (define (duplicates sigs) + (define (duplicates? sigs) (for/or ([s sigs] #:when - (> 1 (length (for/list ([s* sig]) (sig=? s s*))))) + (> 1 (length (for/list ([s* sigs]) (sig=? s s*))))) s)) (syntax-case stx (import export) @@ -80,7 +80,7 @@ => (lambda (d) (raise-syntax-error #f (format "multiple units export the signature ~a" d) stx))] - [else (mk (s:delete-duplicates imps) exps units stx)]))])) + [else (mk (delete-duplicates imps) exps units stx)]))])) ;; Tests