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

.

Browse Source 
original commit: da1c5010f43784d83f03f570c10636676bc49b3a
This commit is contained in:
Matthew Flatt 2001-09-17 15:03:05 +00:00
parent a5beec6de2
commit 4744c502e5
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mzlib/unitsig.ss
View File

@ -233,7 +233,14 @@
[(_ name) [(_ name)
(identifier? (syntax name)) (identifier? (syntax name))
(let ([sig (get-sig 'signature->symbols stx #f (syntax name))]) (let ([sig (get-sig 'signature->symbols stx #f (syntax name))])
(with-syntax ([e (explode-sig sig #f)]) (with-syntax ([e (let cleanup ([p (explode-sig sig #f)])
;; Strip struct info:
(list->vector
(map (lambda (i)
(if (symbol? i)
i
(cons (car i) (cleanup (cdr i)))))
(vector->list (car p)))))])
(syntax 'e)))]))) (syntax 'e)))])))
;; Internal: ;; Internal: