From ca6b181fa167aeb9f8972cf411280bf3104985d6 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Fri, 5 Dec 2008 01:48:49 -0500
Subject: [PATCH] added pointer-value as a first-class primitive.

---
 scheme/ikarus.handlers.ss | 8 ++++++++
 scheme/last-revision      | 2 +-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/scheme/ikarus.handlers.ss b/scheme/ikarus.handlers.ss
index e44a7ea..533c558 100644
--- a/scheme/ikarus.handlers.ss
+++ b/scheme/ikarus.handlers.ss
@@ -23,6 +23,14 @@
         [(x guard) (make-parameter x guard)]
         [(x) (make-parameter x)]))))
 
+(library (ikarus.pointer-value)
+  (export pointer-value)
+  (import (only (ikarus) define import))
+  (define (pointer-value x)
+    (import (ikarus))
+    (pointer-value x)))
+
+
 (library (ikarus system handlers)
   (export
     interrupt-handler $apply-nonprocedure-error-handler
diff --git a/scheme/last-revision b/scheme/last-revision
index 43a79d2..1f61070 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1695
+1696