From 407554c185f6403199b061465b4e0c13439c0841 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 1 May 2005 21:53:12 +0000
Subject: [PATCH] void* fix

---
 library/alien/c-types.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/library/alien/c-types.factor b/library/alien/c-types.factor
index 982e96ee95..cad6855ab7 100644
--- a/library/alien/c-types.factor
+++ b/library/alien/c-types.factor
@@ -30,7 +30,9 @@ global [ <namespace> c-types set ] bind
 
 [
     [ alien-unsigned-cell <alien> ] "getter" set
-    [ alien-address set-alien-unsigned-cell ] "setter" set
+    [
+        >r >r alien-address r> r> set-alien-unsigned-cell
+    ] "setter" set
     cell "width" set
     cell "align" set
     "box_alien" "boxer" set