combinators.lib: short-circuit is used by regexp
parent
bdf77814e2
commit
e813ac97c4
|
@ -63,8 +63,8 @@ MACRO: napply ( n -- )
|
||||||
! short circuiting words
|
! short circuiting words
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
! : short-circuit ( quots quot default -- quot )
|
: short-circuit ( quots quot default -- quot )
|
||||||
! 1quotation -rot { } map>assoc <reversed> alist>quot ;
|
1quotation -rot { } map>assoc <reversed> alist>quot ;
|
||||||
|
|
||||||
! MACRO: && ( quots -- ? )
|
! MACRO: && ( quots -- ? )
|
||||||
! [ [ not ] append [ f ] ] t short-circuit ;
|
! [ [ not ] append [ f ] ] t short-circuit ;
|
||||||
|
|
Loading…
Reference in New Issue