steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

combinators.lib: Remove old code

db4
Eduardo Cavazos 2008-06-25 04:52:52 -05:00
parent 590ccc49e1
commit c71d09ee30
1 changed files with 0 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
extra/combinators/lib/lib.factor
View File

@ -59,47 +59,6 @@ MACRO: napply ( n -- )
: assoc-map-with ( obj assoc quot -- assoc )
with* assoc-map ; inline
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! short circuiting words
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! : short-circuit ( quots quot default -- quot )
! 1quotation -rot { } map>assoc <reversed> alist>quot ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! MACRO: 0&& ( quots -- quot )
! [ '[ drop @ dup not ] [ drop f ] 2array ] map
! { [ t ] [ ] } suffix
! '[ f , cond ] ;
! MACRO: 1&& ( quots -- quot )
! [ '[ drop dup @ dup not ] [ drop drop f ] 2array ] map
! { [ t ] [ nip ] } suffix
! '[ f , cond ] ;
! MACRO: 2&& ( quots -- quot )
! [ '[ drop 2dup @ dup not ] [ drop 2drop f ] 2array ] map
! { [ t ] [ 2nip ] } suffix
! '[ f , cond ] ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! MACRO: 0|| ( quots -- quot )
! [ '[ drop @ dup ] [ ] 2array ] map
! { [ drop t ] [ f ] } suffix
! '[ f , cond ] ;
! MACRO: 1|| ( quots -- quot )
! [ '[ drop dup @ dup ] [ nip ] 2array ] map
! { [ drop drop t ] [ f ] } suffix
! '[ f , cond ] ;
! MACRO: 2|| ( quots -- quot )
! [ '[ drop 2dup @ dup ] [ 2nip ] 2array ] map
! { [ drop 2drop t ] [ f ] } suffix
! '[ f , cond ] ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! ifte
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!