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

2012-08-04 22:21:55 +02:00 · 2012-08-04 22:21:55 +02:00 · 87aeec7c63
parent 53aa8e1458
commit 87aeec7c63
1 changed files with 1 additions and 1 deletions
--- a/extra/rosetta-code/y-combinator/y-combinator.factor
+++ b/extra/rosetta-code/y-combinator/y-combinator.factor
@ -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 ] ;