29 |
#include "include.h" |
#include "include.h" |
30 |
|
|
31 |
void |
void |
32 |
Fblock(object args) |
Fblock(VOL object args) |
33 |
{ |
{ |
|
object endp_temp; |
|
34 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |
35 |
object id; |
object id; |
36 |
object body; |
object body; |
67 |
void |
void |
68 |
Freturn_from(object args) |
Freturn_from(object args) |
69 |
{ |
{ |
|
object endp_temp; |
|
70 |
object lex_block; |
object lex_block; |
71 |
frame_ptr fr; |
frame_ptr fr; |
72 |
|
|
94 |
Freturn(object args) |
Freturn(object args) |
95 |
{ |
{ |
96 |
object lex_block; |
object lex_block; |
|
object endp_temp; |
|
97 |
frame_ptr fr; |
frame_ptr fr; |
98 |
|
|
99 |
if(!endp(args) && !endp(MMcdr(args))) |
if(!endp(args) && !endp(MMcdr(args))) |