From 5932b60463ef7303e1a5a65a160a874399907704 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Tue, 7 Sep 1993 21:56:27 +0000
Subject: [PATCH] Default variables can now be initialized by running a thunk.

---
 v7/src/runtime/dosprm.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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)
 
-- 
2.25.1