From dbe19d8173f8a8be83dc7dda3e2d38d0ee8a6d03 Mon Sep 17 00:00:00 2001 From: Jeremy Hughes Date: Mon, 6 Jul 2009 11:06:44 +1200 Subject: [PATCH] alien.inline: reverted refactoring --- basis/alien/inline/inline.factor | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/basis/alien/inline/inline.factor b/basis/alien/inline/inline.factor index 7ae530a0a0..9a9f2eb683 100644 --- a/basis/alien/inline/inline.factor +++ b/basis/alien/inline/inline.factor @@ -88,12 +88,14 @@ PRIVATE> compile-library? [ compile-library ] when c-library get library-path "cdecl" add-library ; -: define-c-function ( function types effect -- prototype ) - [ factor-function define-declared ] 3keep prototype-string ; +: define-c-function ( function types effect -- ) + [ factor-function define-declared ] 3keep prototype-string + append-function-body c-strings get push ; -: define-c-function' ( function effect -- prototype ) +: define-c-function' ( function effect -- ) [ in>> ] keep [ factor-function define-declared ] 3keep - out>> prototype-string' ; + out>> prototype-string' + append-function-body c-strings get push ; : define-c-link ( str -- ) "-l" prepend compiler-args get push ; @@ -120,7 +122,6 @@ SYNTAX: C-LINK/FRAMEWORK: scan define-c-link/framework ; SYNTAX: C-INCLUDE: scan define-c-include ; SYNTAX: C-FUNCTION: - function-types-effect define-c-function - append-function-body c-strings get push ; + function-types-effect define-c-function ; SYNTAX: ;C-LIBRARY compile-c-library ;