29 |
#include "include.h" |
#include "include.h" |
30 |
|
|
31 |
static void |
static void |
32 |
Fblock(VOL object args) |
FFN(Fblock)(VOL object args) |
33 |
{ |
{ |
34 |
object *oldlex = lex_env; |
object *oldlex = lex_env; |
35 |
object id; |
object id; |
65 |
} |
} |
66 |
|
|
67 |
static void |
static void |
68 |
Freturn_from(object args) |
FFN(Freturn_from)(object args) |
69 |
{ |
{ |
70 |
object lex_block; |
object lex_block; |
71 |
frame_ptr fr; |
frame_ptr fr; |
91 |
} |
} |
92 |
|
|
93 |
static void |
static void |
94 |
Freturn(object args) |
FFN(Freturn)(object args) |
95 |
{ |
{ |
96 |
object lex_block; |
object lex_block; |
97 |
frame_ptr fr; |
frame_ptr fr; |