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 199e01c44462f4c20f3669a4b1595b2fbf0c4b55..6b4d9e470f63a8c04460267070ff1d90cbac7ee6 100644 (file)
--- 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)