sequences.extras: oops. cleanup dumb implementation.

locals-and-roots
Doug Coleman 2016-03-29 13:25:29 -07:00
parent 7dbe6c177e
commit ebc2a8953c
1 changed files with 1 additions and 1 deletions

View File

@ -553,4 +553,4 @@ PRIVATE>
start-all* length ; inline start-all* length ; inline
: map-zip ( quot: ( x -- y ) -- alist ) : map-zip ( quot: ( x -- y ) -- alist )
'[ [ _ call ] [ ] bi swap ] map>alist ; inline '[ _ keep swap ] map>alist ; inline