From cddc5a31888fc63b777f823e7c2e66c660fb663c Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Tue, 14 Jul 2009 22:36:45 +1200
Subject: [PATCH] alien.marshall.syntax: arg renaming
---
basis/alien/marshall/syntax/syntax.factor | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/basis/alien/marshall/syntax/syntax.factor b/basis/alien/marshall/syntax/syntax.factor
index 822eb950e9..783e822246 100644
--- a/basis/alien/marshall/syntax/syntax.factor
+++ b/basis/alien/marshall/syntax/syntax.factor
@@ -6,8 +6,8 @@ quotations sequences words alien.marshall.structs lexer parser
vocabs.parser multiline ;
IN: alien.marshall.syntax
-:: marshalled-function ( function types effect -- word quot effect )
- function types effect factor-function
+:: marshalled-function ( name types effect -- word quot effect )
+ name types effect factor-function
[ in>> ]
[ out>> types [ pointer-to-primitive? ] filter append ]
bi <effect>
@@ -22,13 +22,13 @@ IN: alien.marshall.syntax
] [ ] make
] dip ;
-: define-c-marshalled ( function types effect body -- )
+: define-c-marshalled ( name types effect body -- )
[
[ marshalled-function define-declared ]
[ prototype-string ] 3bi
] dip append-function-body c-strings get push ;
-: define-c-marshalled' ( function effect body -- )
+: define-c-marshalled' ( name effect body -- )
[
[ in>> ] keep
[ marshalled-function define-declared ]