fix 05-assignment-empty.sh
This commit is contained in:
parent
6e88ad23d0
commit
da105e0e81
|
@ -53,11 +53,13 @@
|
||||||
|
|
||||||
(define %functions '())
|
(define %functions '())
|
||||||
|
|
||||||
(define (assignment name value)
|
(define* (assignment name #:optional value)
|
||||||
(and value
|
(if value
|
||||||
(set! %global-variables
|
(set! %global-variables
|
||||||
(assoc-set! %global-variables name value))
|
(assoc-set! %global-variables name value))
|
||||||
#t))
|
(set! %global-variables
|
||||||
|
(assoc-set! %global-variables name "")))
|
||||||
|
#t)
|
||||||
|
|
||||||
(define* (variable name #:optional (default ""))
|
(define* (variable name #:optional (default ""))
|
||||||
(cond ((string->number name)
|
(cond ((string->number name)
|
||||||
|
|
Loading…
Reference in New Issue