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

Cleanup.

Browse Source
This commit is contained in:
Georges Dupéron 2017-04-20 20:37:58 +02:00
parent b6d4a94f98
commit 9835107f83
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
typed-map-lib/typed-map/main.rkt
View File

@ -58,7 +58,7 @@
(if (or (null? l-cacheᵢ) ...)
(begin
(unless (and (null? l-cacheᵢ) ...)
;; TODO: copy the error message from map.
;; TODO: produce the same error message as map.
(error "all lists must have same size"))
init-acc)
;; Possibility to call (generalize) on the single-element
@ -79,7 +79,7 @@
(if (or (null? l-loopᵢ) ...)
(begin
(unless (and (null? l-loopᵢ) ...)
;; TODO: copy the error message from foldr/map.
;; TODO: same error message as foldr or map.
(error "all lists must have same size"))
(void))
(begin (set! upcast-result