From e54331438b1120bc79915cb9e77427e6bbe01c48 Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Wed, 15 Jul 2009 16:42:00 +1200
Subject: [PATCH] alien.marshall: fixed out-arg-unmarshaller

---
 extra/alien/marshall/marshall.factor | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/extra/alien/marshall/marshall.factor b/extra/alien/marshall/marshall.factor
index 290e186b36..85b157e4a0 100644
--- a/extra/alien/marshall/marshall.factor
+++ b/extra/alien/marshall/marshall.factor
@@ -298,9 +298,6 @@ ALIAS: marshall-void* marshall-pointer
     ] if* ;
 
 : out-arg-unmarshaller ( type -- quot )
-    dup {
-        [ pointer-to-const? not ]
-        [ factorize-type pointer-to-primitive? ]
-    } 1&&
+    dup pointer-to-non-const-primitive?
     [ factorize-type primitive-unmarshaller ]
     [ drop [ drop ] ] if ;