From c169a9075314d4fe07aea359ec5b67e057d6818f Mon Sep 17 00:00:00 2001
From: Timothy Sample <samplet@ngyro.com>
Date: Mon, 31 Dec 2018 11:03:30 -0500
Subject: [PATCH] Use default value when unpacking variable vector.

* geesh/environment.scm (getvar): Use 'dflt' when we have a vector but
'value' is '#f'.
---
 geesh/environment.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/geesh/environment.scm b/geesh/environment.scm
index 784a47f..ab37029 100644
--- a/geesh/environment.scm
+++ b/geesh/environment.scm
@@ -151,7 +151,7 @@ well."
 and @var{dflt} is provided, return @var{dflt}.  Otherwise, return
 @code{#f}."
   (match (hash-ref *variables* name dflt)
-    (#(value _ _) value)
+    (#(value _ _) (or value dflt))
     (value value)))
 
 (define (setvar! name value)