append inline to combinator

2009-07-07 19:41:59 +12:00 · 2009-07-07 19:41:59 +12:00 · 74ef4a90fc
parent 3d37dda739
commit 74ef4a90fc
1 changed files with 1 additions and 1 deletions
--- a/basis/alien/marshall/private/private.factor
+++ b/basis/alien/marshall/private/private.factor
@ -16,7 +16,7 @@ MACRO: marshall-x* ( num-quot seq-quot -- alien )
    '[ bool>arg dup number? _ _ if ] ;

 : ptr-pass-through ( obj quot -- alien )
-    over c-ptr? [ drop ] [ call ] if ;
+    over c-ptr? [ drop ] [ call ] if ; inline

 : malloc-underlying ( obj -- alien )
    underlying>> malloc-byte-array ;