8 lines
166 B
Scheme
8 lines
166 B
Scheme
=> (define (create-variable name initial-val)
|
|
(eval `(define ,name ,initial-val) (interaction-environment)))
|
|
|
|
=> (create-variable (read) 50)
|
|
<hello
|
|
|
|
=> hello
|
|
50
|