From 0c0ae68c5e37eba4bb04997934ec292a4debba7e 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 ;