From 2d55a919c3e44e7deed23d89b6e83960be6741a9 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 3 Sep 2000 20:20:19 +0000
Subject: [PATCH] * boot-9.scm (make-object-property): New function.

---
 ice-9/boot-9.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 2407bfa25..41d4eb9f6 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -153,6 +153,17 @@
     (if pair
 	(symbol-pset! sym (delq! pair (symbol-pref sym))))))
 
+;;; {General Properties}
+
+;; This is a more modern interface to properties.  It will replace all
+;; other property-like things eventually.
+
+(define (make-object-property)
+  (let ((prop (primitive-make-property #f)))
+    (make-procedure-with-setter
+     (lambda (obj) (primitive-property-ref prop obj))
+     (lambda (obj val) (primitive-property-set! prop obj val)))))
+
 
 
 ;;; {Line and Delimited I/O}