Minilisp.pm/t/let.t

19 lines
365 B
Perl
Raw Normal View History

2021-04-02 20:01:35 +02:00
(let ((a 5) (b 6))
(expect "a is 5" (= a 5))
(expect "b is 6" (= b 6))
)
2021-04-05 00:26:23 +02:00
(let ((a 'top))
(let ((a 'shadow)
(b a))
(comment b)
(expect "let - non incremental context"
(equal b 'top))))
(let ((a 'top))
(let* ((a 'shadow)
(b a))
(comment b)
(expect "let* - Incremental context"
(equal b 'shadow))))