Added %set-alien/address!, for gtk/gio.scm.

Needed to create an alien address from an external-string descriptor.

diff --git a/src/runtime/ffi.scm b/src/runtime/ffi.scm
index 220e810a8998600926b5e48ebc6040b677895169..55db9b89bc02ef8980a0dabc857cd3461ac24c45 100644 (file)
--- a/src/runtime/ffi.scm
+++ b/src/runtime/ffi.scm
@@ -96,6 +96,11 @@ USA.
   (+ (* (%alien/high-bits alien) (radix))
      (%alien/low-bits alien)))
 
+(define (%set-alien/address! alien address)
+  (let ((qr (integer-divide address (radix))))
+    (set-%alien/high-bits! alien (integer-divide-quotient qr))
+    (set-%alien/low-bits! alien (integer-divide-remainder qr))))
+
 (declare (integrate-operator copy-alien-address!))
 (define (copy-alien-address! alien source)
   (if (not (eq? alien source))