Handbook
Glossary
3craft-1up ( ..a quot1: ( ..a -- ..b o1 ) quot2: ( ..b -- ..c o2 ) quot3: ( ..c -- ..d o3 ) -- ..d o1 o2 o3 )
Extra combinators
Prev:
2craft-1up ( ..a quot1: ( ..a -- ..b o1 ) quot2: ( ..b -- ..c o2 ) -- ..c o1 o2 )
Next:
4craft-1up ( ..a quot1: ( ..a -- ..b o1 ) quot2: ( ..b -- ..c o2 ) quot3: ( ..c -- ..d o3 ) quot4: ( ..d -- ..e o4 ) -- ..e o1 o2 o3 o4 )
Vocabulary
combinators.extras
Inputs
quot1
a
quotation
with stack effect
( ..a -- ..b o1 )
quot2
a
quotation
with stack effect
( ..b -- ..c o2 )
quot3
a
quotation
with stack effect
( ..c -- ..d o3 )
Outputs
o1
an
object
o2
an
object
o3
an
object
Word description
A version of
2craft-1up
that crafts 3 values.
Definition
USING:
kernel
;
IN:
combinators.extras
:
3craft-1up
( ..a quot1: ( ..a -- ..b o1 ) quot2: ( ..b -- ..c o2 ) quot3: ( ..c -- ..d o3 ) -- ..d o1 o2 o3 )
[
call
]
2dip
[
dip-1up
]
dip
[
2dip-1up
]
call
;
inline