From 1ca37e8def2d74ff28ea4497fe6caab3e7fcc183 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 28 Apr 2008 21:21:27 +0000 Subject: [PATCH] Fix comparison. svn: r9517 --- collects/typed-scheme/private/unit-utils.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/typed-scheme/private/unit-utils.ss b/collects/typed-scheme/private/unit-utils.ss index bab4d5a7bf..24a6c7ed1b 100644 --- a/collects/typed-scheme/private/unit-utils.ss +++ b/collects/typed-scheme/private/unit-utils.ss @@ -62,7 +62,7 @@ (define (duplicates? sigs) (for/or ([s sigs] #:when - (> 1 (length (for/list ([s* sigs]) (sig=? s s*))))) + (> 1 (length (for/list ([s* sigs]) (free-identifier=? s s*))))) s)) (syntax-case stx (import export) @@ -80,7 +80,8 @@ => (lambda (d) (raise-syntax-error #f (format "multiple units export the signature ~a" d) stx))] - [else (mk (delete-duplicates imps) exps units stx)]))])) + [else + (mk (delete-duplicates imps) exps units stx)]))])) ;; Tests @@ -103,4 +104,6 @@ (define-values/link-units/infer (export x^) x@ y@) +;(define-values/link-units/infer x@ y@) +