47 |
void |
void |
48 |
Ftagbody(object body) |
Ftagbody(object body) |
49 |
{ |
{ |
|
object endp_temp; |
|
50 |
|
|
51 |
object *old_top = vs_top; |
object *old_top = vs_top; |
52 |
object *new_top; |
object *new_top; |
104 |
} |
} |
105 |
|
|
106 |
void |
void |
107 |
Fprog(object arg) |
Fprog(VOL object arg) |
108 |
{ |
{ |
|
object endp_temp; |
|
109 |
|
|
110 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |
111 |
struct bind_temp *start; |
struct bind_temp *start; |
137 |
} |
} |
138 |
|
|
139 |
void |
void |
140 |
FprogA(object arg) |
FprogA(VOL object arg) |
141 |
{ |
{ |
|
object endp_temp; |
|
142 |
|
|
143 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |
144 |
struct bind_temp *start; |
struct bind_temp *start; |
172 |
void |
void |
173 |
Fgo(object args) |
Fgo(object args) |
174 |
{ |
{ |
|
object endp_temp; |
|
175 |
|
|
176 |
object lex_tag; |
object lex_tag; |
177 |
frame_ptr fr; |
frame_ptr fr; |
194 |
void |
void |
195 |
Fprogv(object args) |
Fprogv(object args) |
196 |
{ |
{ |
|
object endp_temp; |
|
197 |
|
|
198 |
object *top; |
object *top; |
199 |
object symbols; |
object symbols; |
239 |
void |
void |
240 |
Fprogn(object body) |
Fprogn(object body) |
241 |
{ |
{ |
|
object endp_temp; |
|
242 |
|
|
243 |
if(endp(body)) { |
if(endp(body)) { |
244 |
vs_base=vs_top; |
vs_base=vs_top; |
256 |
void |
void |
257 |
Fprog1(object arg) |
Fprog1(object arg) |
258 |
{ |
{ |
|
object endp_temp; |
|
259 |
|
|
260 |
object *top = vs_top; |
object *top = vs_top; |
261 |
|
|
273 |
void |
void |
274 |
Fprog2(object arg) |
Fprog2(object arg) |
275 |
{ |
{ |
|
object endp_temp; |
|
276 |
|
|
277 |
object *top = vs_top; |
object *top = vs_top; |
278 |
|
|