From ffa5461a3913aa50027c3f8ea6db4c22da8f227d Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 4 Apr 2002 08:22:20 +0000
Subject: [PATCH] Added fluid-cell-ref and fluid-cell-set!.

---
 scheme/interfaces.scm     | 4 ++++
 scheme/rts/thread-env.scm | 8 ++++++++
 2 files changed, 12 insertions(+)

diff --git a/scheme/interfaces.scm b/scheme/interfaces.scm
index e909627..cbc5f96 100644
--- a/scheme/interfaces.scm
+++ b/scheme/interfaces.scm
@@ -394,6 +394,10 @@
 	  let-fluid
 	  let-fluids
 	  fluid
+	  
+	  fluid-cell-ref
+	  fluid-cell-set!
+
 	  set-fluid!))
 
 (define-interface fluids-internal-interface
diff --git a/scheme/rts/thread-env.scm b/scheme/rts/thread-env.scm
index 4937b62..8353602 100644
--- a/scheme/rts/thread-env.scm
+++ b/scheme/rts/thread-env.scm
@@ -88,6 +88,14 @@
 	(loop (cddr args)
 	      (cons (cons (car args) (cadr args)) env)))))
 
+; Handy utilities.
+
+(define (fluid-cell-ref f)
+  (cell-ref (fluid f)))
+
+(define (fluid-cell-set! f value)
+  (cell-set! (fluid f) value))
+
 ; Thread cells
 
 (define-record-type thread-cell :thread-cell