From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 7 Sep 1993 21:56:27 +0000 (+0000)
Subject: Default variables can now be initialized by running a thunk.
X-Git-Tag: 20090517-FFI~7889
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5932b60463ef7303e1a5a65a160a874399907704;p=mit-scheme.git

Default variables can now be initialized by running a thunk.
---

diff --git a/v7/src/runtime/dosprm.scm b/v7/src/runtime/dosprm.scm
index 199e01c44..6b4d9e470 100644
--- a/v7/src/runtime/dosprm.scm
+++ b/v7/src/runtime/dosprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: dosprm.scm,v 1.19 1993/09/01 22:25:34 gjr Exp $
+$Id: dosprm.scm,v 1.20 1993/09/07 21:56:27 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -180,7 +180,10 @@ MIT in each case. |#
 	     (not ((ucode-primitive get-environment-variable 1)
 		   var)))
 	(set! environment-variables
-	      (cons (cons var val)
+	      (cons (cons var
+			  (if (procedure? val)
+			      (val)
+			      val))
 		    environment-variables)))
     unspecific)