/[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.5 by camm, Sun Feb 9 22:35:18 2003 UTC revision 1.6 by camm, Sat Feb 15 00:38:28 2003 UTC
# Line 28  Foundation, 675 Mass Ave, Cambridge, MA Line 28  Foundation, 675 Mass Ave, Cambridge, MA
28    
29  #include "include.h"  #include "include.h"
30    
31  void  static void
32  Fcatch(VOL object args)  Fcatch(VOL object args)
33  {  {
34    
# Line 47  Fcatch(VOL object args) Line 47  Fcatch(VOL object args)
47          frs_pop();          frs_pop();
48  }  }
49    
50  DEFUNO("ERROR-SET",object,fSerror_set,SI  DEFUN_NEW("ERROR-SET",object,fSerror_set,SI
51     ,1,1,NONE,OO,OO,OO,OO,siLerror_set,             ,1,1,NONE,OO,OO,OO,OO,(volatile object x0),
52         "Evaluates the FORM in the null environment.  If the evaluation \         "Evaluates the FORM in the null environment.  If the evaluation \
53  of the FORM has successfully completed, SI:ERROR-SET returns NIL as the first \  of the FORM has successfully completed, SI:ERROR-SET returns NIL as the first \
54  value and the result of the evaluation as the rest of the values.  If, in the \  value and the result of the evaluation as the rest of the values.  If, in the \
55  course of the evaluation, a non-local jump from the FORM is atempted, \  course of the evaluation, a non-local jump from the FORM is atempted, \
56  SI:ERROR-SET traps the jump and returns the corresponding jump tag as its \  SI:ERROR-SET traps the jump and returns the corresponding jump tag as its \
57  value.")  value.")
58     (x0)  
 volatile object x0;  
59  {  {
60          object *old_lex = lex_env;          object *old_lex = lex_env;
61    
# Line 89  volatile object x0; Line 88  volatile object x0;
88          return Cnil;          return Cnil;
89  }  }
90    
91  void  static void
92  Funwind_protect(VOL object args)  Funwind_protect(VOL object args)
93  {  {
94    
# Line 134  Funwind_protect(VOL object args) Line 133  Funwind_protect(VOL object args)
133          }          }
134  }  }
135    
136  void  static void
137  Fthrow(object args)  Fthrow(object args)
138  {  {
139    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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