/[gcl]/gcl/o/catch.c
ViewVC logotype

Diff of /gcl/o/catch.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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 */

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26