From 4917454b85346fc0fb58cf8239f0c774b9654673 Mon Sep 17 00:00:00 2001 From: Jeremy Hughes Date: Tue, 7 Jul 2009 19:41:59 +1200 Subject: [PATCH] append inline to combinator --- basis/alien/marshall/private/private.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/alien/marshall/private/private.factor b/basis/alien/marshall/private/private.factor index afc685effb..901d713009 100644 --- 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 ;