Use default value when unpacking variable vector.
* geesh/environment.scm (getvar): Use 'dflt' when we have a vector but 'value' is '#f'.
This commit is contained in:
parent
64aa779315
commit
c169a90753
|
@ -151,7 +151,7 @@ well."
|
||||||
and @var{dflt} is provided, return @var{dflt}. Otherwise, return
|
and @var{dflt} is provided, return @var{dflt}. Otherwise, return
|
||||||
@code{#f}."
|
@code{#f}."
|
||||||
(match (hash-ref *variables* name dflt)
|
(match (hash-ref *variables* name dflt)
|
||||||
(#(value _ _) value)
|
(#(value _ _) (or value dflt))
|
||||||
(value value)))
|
(value value)))
|
||||||
|
|
||||||
(define (setvar! name value)
|
(define (setvar! name value)
|
||||||
|
|
Loading…
Reference in New Issue