blob: 6ffc7ecb9f3e0df53fe5051c1a954b5249ee2c9d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(sc-define-syntax (for-i index limit body ...)
(for ((define index int 0)
(< index limit)
(set+ index 1))
body ...))
(sc-define-syntax (with-alloc var type allocate free body ...)
(let* ()
(declare var type)
(set var allocate)
body ...
(free var)))
|
