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

Update vocabs for combinators.short-circuit

db4
Eduardo Cavazos 2008-06-24 08:35:36 -05:00
parent 6923b32ebf
commit e88b83b32f
5 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,42 +63,42 @@ MACRO: napply ( n -- )
! short circuiting words
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: short-circuit ( quots quot default -- quot )
1quotation -rot { } map>assoc <reversed> alist>quot ;
! : 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: 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: 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: 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: 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: 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 ] ;
! MACRO: 2|| ( quots -- quot )
! [ '[ drop 2dup @ dup ] [ 2nip ] 2array ] map
! { [ drop 2drop t ] [ f ] } suffix
! '[ f , cond ] ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! ifte

2
extra/http/parsers/parsers.factor
View File

@ -1,4 +1,4 @@
USING: math math.order math.parser kernel combinators.lib
USING: combinators.short-circuit math math.order math.parser kernel combinators.lib
sequences sequences.deep peg peg.parsers assocs arrays
hashtables strings unicode.case namespaces ascii ;
IN: http.parsers

2
extra/unicode/breaks/breaks.factor
View File

@ -1,4 +1,4 @@
USING: unicode.categories kernel math combinators splitting
USING: combinators.short-circuit unicode.categories kernel math combinators splitting
sequences math.parser io.files io assocs arrays namespaces
math.ranges unicode.normalize values io.encodings.ascii
unicode.syntax unicode.data compiler.units alien.syntax sets

2
extra/unicode/collation/collation.factor
View File

@ -1,4 +1,4 @@
USING: sequences io.files io.encodings.ascii kernel values
USING: combinators.short-circuit sequences io.files io.encodings.ascii kernel values
splitting accessors math.parser ascii io assocs strings math
namespaces sorting combinators math.order arrays
unicode.normalize unicode.data combinators.lib locals

2
extra/unicode/data/data.factor
View File

@ -1,4 +1,4 @@
USING: assocs math kernel sequences io.files hashtables
USING: combinators.short-circuit assocs math kernel sequences io.files hashtables
quotations splitting grouping arrays math.parser hash2 math.order
byte-arrays words namespaces words compiler.units parser
io.encodings.ascii values interval-maps ascii sets