From e4fbb978a3aa6121903f19e3cc96e894565af060 Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Wed, 15 Jul 2009 16:41:06 +1200
Subject: [PATCH] alien.marshall.types: added pointer-to-non-const-primitive?

---
 extra/alien/inline/types/types.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/extra/alien/inline/types/types.factor b/extra/alien/inline/types/types.factor
index b90bde1850..94b98d1eb5 100644
--- a/extra/alien/inline/types/types.factor
+++ b/extra/alien/inline/types/types.factor
@@ -40,6 +40,12 @@ MEMO: resolved-primitives ( -- seq )
     factorize-type
     { [ pointer? ] [ type-sans-pointer primitive-type? ] } 1&& ;
 
+: pointer-to-non-const-primitive? ( str -- ? )
+    {
+        [ pointer-to-const? not ]
+        [ factorize-type pointer-to-primitive? ]
+    } 1&& ;
+
 : types-effect>params-return ( types effect -- params return )
     [ in>> zip ]
     [ nip out>> dup length 0 > [ first ] [ drop "void" ] if ]