27 |
|
|
28 |
#include "include.h" |
#include "include.h" |
29 |
|
|
30 |
Floop(form) |
void |
31 |
object form; |
Floop(object form) |
32 |
{ |
{ |
33 |
object endp_temp; |
object endp_temp; |
34 |
|
|
35 |
object x; |
object x; |
36 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |
|
object id; |
|
37 |
object *top; |
object *top; |
38 |
|
|
39 |
make_nil_block(); |
make_nil_block(); |
80 |
during the main loop. |
during the main loop. |
81 |
*/ |
*/ |
82 |
|
|
83 |
do_var_list(var_list) |
void |
84 |
object var_list; |
do_var_list(object var_list) |
85 |
{ |
{ |
86 |
object endp_temp; |
object endp_temp; |
87 |
|
|
122 |
} |
} |
123 |
} |
} |
124 |
|
|
125 |
Fdo(arg) |
void |
126 |
object arg; |
Fdo(object arg) |
127 |
{ |
{ |
128 |
object endp_temp; |
object endp_temp; |
129 |
|
|
193 |
} |
} |
194 |
} |
} |
195 |
for (bt = start; bt<end; bt++) { |
for (bt = start; bt<end; bt++) { |
196 |
if (bt->bt_aux != bt->bt_var) |
if (bt->bt_aux != bt->bt_var) { |
197 |
if (bt->bt_spp == Ct) |
if (bt->bt_spp == Ct) |
198 |
bt->bt_var->s.s_dbind = bt->bt_init; |
bt->bt_var->s.s_dbind = bt->bt_init; |
199 |
else |
else |
200 |
MMcadr(bt->bt_spp) = bt->bt_init; |
MMcadr(bt->bt_spp) = bt->bt_init; |
201 |
|
} |
202 |
} |
} |
203 |
goto LOOP; |
goto LOOP; |
204 |
|
|
208 |
lex_env = oldlex; |
lex_env = oldlex; |
209 |
} |
} |
210 |
|
|
211 |
FdoA(arg) |
void |
212 |
object arg; |
FdoA(object arg) |
213 |
{ |
{ |
214 |
object endp_temp; |
object endp_temp; |
215 |
|
|
287 |
lex_env = oldlex; |
lex_env = oldlex; |
288 |
} |
} |
289 |
|
|
290 |
Fdolist(arg) |
void |
291 |
object arg; |
Fdolist(object arg) |
292 |
{ |
{ |
293 |
object endp_temp; |
object endp_temp; |
294 |
|
|
369 |
lex_env = oldlex; |
lex_env = oldlex; |
370 |
} |
} |
371 |
|
|
372 |
Fdotimes(arg) |
void |
373 |
object arg; |
Fdotimes(object arg) |
374 |
{ |
{ |
375 |
object endp_temp; |
object endp_temp; |
376 |
|
|
453 |
lex_env = oldlex; |
lex_env = oldlex; |
454 |
} |
} |
455 |
|
|
456 |
init_iteration() |
void |
457 |
|
init_iteration(void) |
458 |
{ |
{ |
459 |
make_special_form("LOOP", Floop); |
make_special_form("LOOP", Floop); |
460 |
make_special_form("DO", Fdo); |
make_special_form("DO", Fdo); |