From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 8 Mar 1994 20:15:54 +0000 (+0000)
Subject: Define VARIABLE-PERMANENT-LOCAL! and VARIABLE-PERMANENT-LOCAL?.
X-Git-Tag: 20090517-FFI~7264
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=706ea33264cb7d437025585d1a688c1772368fd9;p=mit-scheme.git

Define VARIABLE-PERMANENT-LOCAL! and VARIABLE-PERMANENT-LOCAL?.
---

diff --git a/v7/src/edwin/comman.scm b/v7/src/edwin/comman.scm
index 06e88b7a3..a0fae7030 100644
--- a/v7/src/edwin/comman.scm
+++ b/v7/src/edwin/comman.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: comman.scm,v 1.77 1993/10/18 23:19:30 cph Exp $
+$Id: comman.scm,v 1.78 1994/03/08 20:15:54 cph Exp $
 
-Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
+Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -195,4 +195,13 @@ of that license should have been included along with this file.
 (define (->variable object)
   (if (variable? object)
       object
-      (name->variable object)))
\ No newline at end of file
+      (name->variable object)))
+
+(define (variable-permanent-local! variable)
+  (hash-table/put! permanent-local-variables variable #t))
+
+(define (variable-permanent-local? variable)
+  (hash-table/get permanent-local-variables variable #f))
+
+(define permanent-local-variables
+  (make-eq-hash-table))
\ No newline at end of file