mirror of
https://github.com/kanaka/mal.git
synced 2024-09-11 13:55:55 +03:00
Add a test that eval is in root scope and that newly defined symbols can be found in nested scopes.
This commit is contained in:
parent
0c31a28d55
commit
a124b32269
@ -126,6 +126,11 @@
|
|||||||
*ARGV*
|
*ARGV*
|
||||||
;=>()
|
;=>()
|
||||||
|
|
||||||
|
;;
|
||||||
|
;; Testing that eval sets aa in root scope, and that it is found in nested scope
|
||||||
|
(let* (b 12) (do (eval (read-string "(def! aa 7)")) aa ))
|
||||||
|
;=>7
|
||||||
|
|
||||||
;>>> soft=True
|
;>>> soft=True
|
||||||
;>>> optional=True
|
;>>> optional=True
|
||||||
;;
|
;;
|
||||||
@ -175,3 +180,4 @@ mymap
|
|||||||
;;; Hopefully less problematic characters can be checked together
|
;;; Hopefully less problematic characters can be checked together
|
||||||
(read-string "1; &()*+,-./:;<=>?@[]^_{|}~")
|
(read-string "1; &()*+,-./:;<=>?@[]^_{|}~")
|
||||||
;=>1
|
;=>1
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user