Parent Directory | Revision Log | Patch
revision 1.8 by camm, Thu Nov 6 16:08:08 2003 UTC | revision 1.9 by camm, Mon Aug 8 23:05:04 2005 UTC | |
---|---|---|
# | Line 150 FFN(Fthrow)(object args) | Line 150 FFN(Fthrow)(object args) |
150 | vs_push(tag); | vs_push(tag); |
151 | fr = frs_sch_catch(tag); | fr = frs_sch_catch(tag); |
152 | if (fr == NULL) | if (fr == NULL) |
153 | FEerror("~S is an undefined tag.", 1, tag); | /* FEerror("~S is an undefined tag.", 1, tag); */ |
154 | CONTROL_ERROR("Undefined tag."); | |
155 | eval(MMcadr(args)); | eval(MMcadr(args)); |
156 | unwind(fr, tag); | unwind(fr, tag); |
157 | /* never reached */ | /* never reached */ |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |