Remove unused type variable.

original commit: 64464faf51c07a98049509d79410060edad1d9c3
This commit is contained in:
Vincent St-Amour 2013-12-06 15:13:52 -05:00
parent 01a7caded8
commit 272a17c107

View File

@ -538,8 +538,8 @@
((list a) (b b) . ->... . c)
(-lst a))
((-lst b) b) . ->... .(-lst c))))]
[for-each (-polydots (c a b) ((list ((list a) (b b) . ->... . Univ) (-lst a))
((-lst b) b) . ->... . -Void))]
[for-each (-polydots (a b) ((list ((list a) (b b) . ->... . Univ) (-lst a))
((-lst b) b) . ->... . -Void))]
#;[fold-left (-polydots (c a b) ((list ((list c a) (b b) . ->... . c) c (-lst a))
((-lst b) b) . ->... . c))]
#;[fold-right (-polydots (c a b) ((list ((list c a) (b b) . ->... . c) c (-lst a))