append inline to combinator

db4
Jeremy Hughes 2009-07-07 19:41:59 +12:00
parent b6e5d2481c
commit 4917454b85
1 changed files with 1 additions and 1 deletions
basis/alien/marshall/private

View File

@ -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 ;