1 |
|
2 |
|
3 |
|
4 |
|
5 |
|
6 |
|
7 |
|
8 |
|
9 |
|
10 |
|
11 |
|
12 |
|
13 |
|
14 |
|
15 |
|
16 |
|
17 |
|
18 |
|
19 |
|
20 |
|
21 |
|
22 |
|
23 |
|
24 | Eval_for = ->
|
25 | i = 0
|
26 | j = 0
|
27 | k = 0
|
28 |
|
29 | loopingVariable = caddr(p1)
|
30 | if (!issymbol(loopingVariable))
|
31 | stop("for: 2nd arg should be the variable to loop over")
|
32 |
|
33 | push(cadddr(p1))
|
34 | Eval()
|
35 | j = pop_integer()
|
36 | if (isNaN(j))
|
37 | push p1
|
38 | return
|
39 |
|
40 | push(caddddr(p1))
|
41 | Eval()
|
42 | k = pop_integer()
|
43 | if (isNaN(k))
|
44 | push p1
|
45 | return
|
46 |
|
47 |
|
48 |
|
49 |
|
50 | p4 = get_binding(loopingVariable)
|
51 |
|
52 | for i in [j..k]
|
53 | push_integer(i)
|
54 | p5 = pop()
|
55 | set_binding(loopingVariable, p5)
|
56 | push(cadr(p1))
|
57 | Eval()
|
58 | pop()
|
59 |
|
60 |
|
61 | set_binding(loopingVariable, p4)
|
62 |
|
63 |
|
64 |
|
65 | push_symbol(NIL)
|
66 |
|