From eef0ef9068d4414469664590325aea20a351c08b Mon Sep 17 00:00:00 2001 From: Jeremy Hughes Date: Wed, 15 Jul 2009 16:43:19 +1200 Subject: [PATCH] alien.marshall.syntax: fix marshalled-function --- extra/alien/marshall/syntax/syntax.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/alien/marshall/syntax/syntax.factor b/extra/alien/marshall/syntax/syntax.factor index 783e822246..334343654c 100644 --- a/extra/alien/marshall/syntax/syntax.factor +++ b/extra/alien/marshall/syntax/syntax.factor @@ -9,7 +9,7 @@ IN: alien.marshall.syntax :: marshalled-function ( name types effect -- word quot effect ) name types effect factor-function [ in>> ] - [ out>> types [ pointer-to-primitive? ] filter append ] + [ out>> types [ pointer-to-non-const-primitive? ] filter append ] bi [ [