From 6466ebaed759bf50dd74133e7d66831d99835f94 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 23 Nov 2008 02:46:43 -0600 Subject: [PATCH] Add comment explaining what's going on --- core/kernel/kernel.factor | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor index 75d4f24bfd..1677a2faaa 100644 --- a/core/kernel/kernel.factor +++ b/core/kernel/kernel.factor @@ -53,11 +53,23 @@ DEFER: if pick [ roll 2drop call ] [ 2nip call ] if ; inline ! Slippers -: slip ( quot x -- x ) [ call ] dip ; +: slip ( quot x -- x ) + #! 'slip' and 'dip' can be defined in terms of each other + #! because the JIT special-cases a 'dip' preceeded by + #! a literal quotation. + [ call ] dip ; -: 2slip ( quot x y -- x y ) [ call ] 2dip ; +: 2slip ( quot x y -- x y ) + #! '2slip' and '2dip' can be defined in terms of each other + #! because the JIT special-cases a '2dip' preceeded by + #! a literal quotation. + [ call ] 2dip ; -: 3slip ( quot x y z -- x y z ) [ call ] 3dip ; +: 3slip ( quot x y z -- x y z ) + #! '3slip' and '3dip' can be defined in terms of each other + #! because the JIT special-cases a '3dip' preceeded by + #! a literal quotation. + [ call ] 3dip ; : dip ( x quot -- x ) swap slip ; inline