suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix comparison.

Browse Source 
svn: r9517
This commit is contained in:
Sam Tobin-Hochstadt 2008-04-28 21:21:27 +00:00
parent 3f5550e705
commit 1ca37e8def
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/typed-scheme/private/unit-utils.ss
View File

@ -62,7 +62,7 @@
(define (duplicates? sigs) (define (duplicates? sigs)
(for/or ([s sigs] (for/or ([s sigs]
#:when #:when
(> 1 (length (for/list ([s* sigs]) (sig=? s s*))))) (> 1 (length (for/list ([s* sigs]) (free-identifier=? s s*)))))
s)) s))
(syntax-case stx (import export) (syntax-case stx (import export)
@ -80,7 +80,8 @@
=> =>
(lambda (d) (lambda (d)
(raise-syntax-error #f (format "multiple units export the signature ~a" d) stx))] (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 ;; Tests
@ -103,4 +104,6 @@
(define-values/link-units/infer (export x^) x@ y@) (define-values/link-units/infer (export x^) x@ y@)
;(define-values/link-units/infer x@ y@)