rosetta-code.y-combinator use inline instead of call( x -- x )

db4
Jon Harper 2012-08-04 22:21:55 +02:00 committed by John Benediktsson
parent 53aa8e1458
commit 87aeec7c63
1 changed files with 1 additions and 1 deletions

View File

@ -22,7 +22,7 @@ IN: rosetta-code.y-combinator
! functions or lambda expressions.
: Y ( quot -- quot )
'[ [ dup call call ] curry _ call ] dup call( x -- x ) ;
'[ [ dup call call ] curry @ ] dup call ; inline
: almost-fac ( quot -- quot )
'[ dup zero? [ drop 1 ] [ dup 1 - _ call * ] if ] ;