blob: 60973689908a08facc8b8f55b061b61bd604fd7a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
;;
;; Variable declarations and updates
;;
(supress-errors true)
(print "(error? (def a 1)) -> ") (error? (def a 1))
(print "a -> ") a
(print "(error? (def a 300)) -> ") (error? (def a 300))
(print "a -> ") a
(print "(error? (def a \"strings\")) -> ") (error? (def a "strings"))
(print "a -> ") a
(print "(error? (def a 1)) -> ") (error? (def a '(quoted symbols 123 or "strings")))
(print "a -> ") a
(print "(error? (set! a 42)) -> ") (error? (set! a 42))
(print "a -> ") a
(print "(error? (set! b 99)) -> ") (error? (set! b 99))
|
