void* fix

2005-05-01 21:53:12 +00:00 · 2005-05-01 21:53:12 +00:00 · 407554c185
parent b679c73096
commit 407554c185
1 changed files with 3 additions and 1 deletions
--- 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