andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix 05-assignment-empty.sh

This commit is contained in:
Rutger van Beusekom 2018-11-14 19:31:00 +01:00
parent 6e88ad23d0
commit da105e0e81
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gash/environment.scm
View File

@ -53,11 +53,13 @@
(define %functions '())
(define (assignment name value)
(and value
(set! %global-variables
(assoc-set! %global-variables name value))
#t))
(define* (assignment name #:optional value)
(if value
(set! %global-variables
(assoc-set! %global-variables name value))
(set! %global-variables
(assoc-set! %global-variables name "")))
#t)
(define* (variable name #:optional (default ""))
(cond ((string->number name)