File tree Expand file tree Collapse file tree 1 file changed +13
-13
lines changed
Expand file tree Collapse file tree 1 file changed +13
-13
lines changed Original file line number Diff line number Diff line change 4545(last 1 5 6 7 8)
4646
4747{
48- (print "Testing macros in scopes and macro shadowing")
48+ (print "Testing macros in scopes and macro shadowing")
4949
50- ($ test (+ 1 2 3))
51- (print "(global) Reading macro 'test', expected 6, " test)
50+ ($ test (+ 1 2 3))
51+ (print "(global) Reading macro 'test', expected 6, " test)
5252
53- ((fun () {
54- ($ test (- 1 2 3))
55- (print "(sub scope) Reading macro 'test', expected -4, " test) }))
53+ ((fun () {
54+ ($ test (- 1 2 3))
55+ (print "(sub scope) Reading macro 'test', expected -4, " test) }))
5656
57- (print "(global) Reading macro 'test', expected 6, " test)
57+ (print "(global) Reading macro 'test', expected 6, " test)
5858
59- {
60- ($ test 555)
61- (print "(subscope) Reading macro 'test', expected 555, " test)
62- ($ undef test)
63- (print "(subscope, undef test) Reading macro 'test', expected 6, " test)
64- ($ undef a) } }
59+ {
60+ ($ test 555)
61+ (print "(subscope) Reading macro 'test', expected 555, " test)
62+ ($ undef test)
63+ (print "(subscope, undef test) Reading macro 'test', expected 6, " test)
64+ ($ undef a) } }
6565(print "Demonstrating a threading macro")
6666
6767($ -> (arg fn1 ...fn) {
You can’t perform that action at this time.
0 commit comments