From d0cddcfc4152113efba67603a5f3842635b84e3f Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 2 Jul 2008 15:57:07 -0500
Subject: [PATCH] fry: Minor factoring
---
extra/fry/fry.factor | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/extra/fry/fry.factor b/extra/fry/fry.factor
index f15a6b24c2..4a97ace2fe 100755
--- a/extra/fry/fry.factor
+++ b/extra/fry/fry.factor
@@ -10,9 +10,10 @@ IN: fry
: _ ( -- * ) "Only valid inside a fry" throw ;
DEFER: (shallow-fry)
+DEFER: shallow-fry
: ((shallow-fry)) ( accum quot adder -- result )
- >r [ ] swap (shallow-fry) r>
+ >r shallow-fry r>
append swap dup empty? [ drop ] [
[ prepose ] curry append
] if ; inline