)
! DPI_AWARENESS_CONTEXT experimentally:
-! USE: math.ranges -100 1000 [a,b] [ <alien> IsValidDpiAwarenessContext ] map-zip
+! USE: math.ranges -100 1000 [a,b] [ <alien> IsValidDpiAwarenessContext ] zip-with
! [ nip 0 > ] assoc-filter keys .
! { -5 -4 -3 -2 -1 17 18 34 273 529 785 }
dup any-multi-value? [ expand-values-set-at flatten-values ] when ;
: intersect-keys ( assoc seq -- elts )
- [ of ] with map-zip sift-values ; inline
+ [ of ] with zip-with sift-values ; inline
: values-of ( assoc seq -- elts )
[ of ] with map sift ; inline
utf8 file-contents string>literals ;
: lex-paths ( vocabs -- assoc )
- [ [ path>literals ] [ nip ] recover ] map-zip ;
+ [ [ path>literals ] [ nip ] recover ] zip-with ;
: lex-vocabs ( vocabs -- assoc )
- [ [ vocab>literals ] [ nip ] recover ] map-zip ;
+ [ [ vocab>literals ] [ nip ] recover ] zip-with ;
: failed-lexing ( assoc -- assoc' ) [ nip array? ] assoc-reject ;
: strings-core-to-file ( -- )
core-vocabs
- [ ".private" ?tail drop vocab-source-path utf8 file-contents ] map-zip
+ [ ".private" ?tail drop vocab-source-path utf8 file-contents ] zip-with
[ "[========[" dup matching-delimiter-string surround ] assoc-map
[
first2 [ "VOCAB: " prepend ] dip " " glue
: parsed-core-to-file ( -- )
core-vocabs
- [ vocab>literals ] map-zip
+ [ vocab>literals ] zip-with
[
first2 [ "<VOCAB: " prepend ] dip
>strings
: bucket>alist ( bucket -- alist )
dup keys
- [ name>> get-object nip ] with map-zip ;
\ No newline at end of file
+ [ name>> get-object nip ] with zip-with ;
\ No newline at end of file
{ t } [
semver-gt-comparisons
- [ first2 version<=> ] map-zip
+ [ first2 version<=> ] zip-with
values [ +gt+ = ] all?
] unit-test
{ t } [
semver-gt-comparisons
- [ first2 swap version<=> ] map-zip
+ [ first2 swap version<=> ] zip-with
values [ +lt+ = ] all?
] unit-test
\ No newline at end of file
{ t } [
semver-gt-comparisons
- [ first2 [ parse-semver ] bi@ <=> ] map-zip
+ [ first2 [ parse-semver ] bi@ <=> ] zip-with
values [ +gt+ = ] all?
] unit-test
{ t } [
semver-gt-comparisons
- [ first2 swap [ parse-semver ] bi@ <=> ] map-zip
+ [ first2 swap [ parse-semver ] bi@ <=> ] zip-with
values [ +lt+ = ] all?
] unit-test
\ No newline at end of file
[
letters>> swap "%" split1 dup [ 1 tail ] when surround
] with V{ } map-as
- ] map-zip ;
+ ] zip-with ;
: number>value ( n -- n' )
{