blob: 3ae0bfc3411e6289fdaa8683a11af02085caa287 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
import bind from grasp
(bind stmt) color: "Red"
a = 'b'
c = d
(a b) c d
import c from d
(a b) c d
(c d) a b
a, b = c, d
(d a) c
macro f = (func,arg)-> "(#{func}) #{arg}"
for i = 1, 10
a = ->
$f print, 1
a = f
$f print, 2
if cond
$f print, 3
::abc::
(print) 4
goto abc
(print) 5
macro v = -> 'print 123'
do
global *
$v!
do
f
:v
tb = while f
:v
repeat
print v
until f
:v
with f
:v = tb
.x = 1
x = if f
:v
x = switch f
:v
when f
:v
nums = for num = 1, len
:num
objects = for item in *items
name: item
nil
|
