help.lint.checks: you can't have duplicate names in $values anymore
parent
220dd88a2c
commit
c3de89c808
|
@ -33,7 +33,7 @@ SYMBOL: vocab-articles
|
||||||
|
|
||||||
: extract-values ( element -- seq )
|
: extract-values ( element -- seq )
|
||||||
\ $values swap elements dup empty? [
|
\ $values swap elements dup empty? [
|
||||||
first rest [ first ] map prune
|
first rest [ first ] map
|
||||||
] unless ;
|
] unless ;
|
||||||
|
|
||||||
: effect-values ( word -- seq )
|
: effect-values ( word -- seq )
|
||||||
|
|
Loading…
Reference in New Issue