grino/examples/block.gri

(assert= 6 (: 2 4 6))
(assert= 9 (: 2 4 (: 3 0 9)))

(:
  ($ a 4)
  (assert= 4 a)
  (set! a 42)
  (assert= 42 a)

  (:
    ($ a 7)
    (assert= 7 a)
    (set! a 32)
    (assert= 32 a)
  )

  (assert= 42 a)
)
REF: renamed 'assert-eq?' into 'assert='. 2023-09-13 09:33:57 +00:00			`(assert= 6 (: 2 4 6))`
			`(assert= 9 (: 2 4 (: 3 0 9)))`
FIX: nested block scopes. 2023-09-12 04:46:07 +00:00
			`(:`
			`($ a 4)`
REF: renamed 'assert-eq?' into 'assert='. 2023-09-13 09:33:57 +00:00			`(assert= 4 a)`
ADD: function capture env (closure). 2023-09-12 19:11:29 +00:00			`(set! a 42)`
REF: renamed 'assert-eq?' into 'assert='. 2023-09-13 09:33:57 +00:00			`(assert= 42 a)`
FIX: nested block scopes. 2023-09-12 04:46:07 +00:00
			`(:`
			`($ a 7)`
REF: renamed 'assert-eq?' into 'assert='. 2023-09-13 09:33:57 +00:00			`(assert= 7 a)`
ADD: function capture env (closure). 2023-09-12 19:11:29 +00:00			`(set! a 32)`
REF: renamed 'assert-eq?' into 'assert='. 2023-09-13 09:33:57 +00:00			`(assert= 32 a)`
FIX: nested block scopes. 2023-09-12 04:46:07 +00:00			`)`

REF: renamed 'assert-eq?' into 'assert='. 2023-09-13 09:33:57 +00:00			`(assert= 42 a)`
FIX: nested block scopes. 2023-09-12 04:46:07 +00:00			`)`