From b9519122fe1cd6f4d20beaaa6f9473b2ea9272cb Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Fri, 21 Nov 2008 06:00:28 -0500
Subject: [PATCH] Added (pointer-size) to lib/ikarus/foreign.ss

---
 lib/ikarus/foreign.ss | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/lib/ikarus/foreign.ss b/lib/ikarus/foreign.ss
index 12681d5..0341f5e 100644
--- a/lib/ikarus/foreign.ss
+++ b/lib/ikarus/foreign.ss
@@ -1,6 +1,5 @@
 
 (library (ikarus foreign)
-
   (export 
           pointer-set-c-char!
           pointer-set-c-short!
@@ -25,7 +24,14 @@
           malloc free 
           pointer->integer integer->pointer pointer? dlopen dlsym
           dlclose dlerror
-          make-c-callout make-c-callback)
+          make-c-callout make-c-callback 
+          pointer-size)
 
-  (import (ikarus system $foreign)))
+  (import (ikarus system $foreign))
+
+  (define (pointer-size)
+    (cond
+      [(<= (fixnum-width) 32) 4]
+      [else 8]))
+)