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

Diff of /gcl/o/iteration.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.4.6.2 by camm, Thu Nov 6 16:16:50 2003 UTC
# Line 28  Foundation, 675 Mass Ave, Cambridge, MA Line 28  Foundation, 675 Mass Ave, Cambridge, MA
28  #include "include.h"  #include "include.h"
29    
30  static void  static void
31  Floop(object form)  FFN(Floop)(object form)
32  {  {
33    
34          object x;          object x;
# Line 121  do_var_list(object var_list) Line 121  do_var_list(object var_list)
121  }  }
122    
123  static void  static void
124  Fdo(VOL object arg)  FFN(Fdo)(VOL object arg)
125  {  {
126    
127          object *oldlex = lex_env;          object *oldlex = lex_env;
# Line 206  END: Line 206  END:
206  }  }
207    
208  static void  static void
209  FdoA(VOL object arg)  FFN(FdoA)(VOL object arg)
210  {  {
211    
212          object *oldlex = lex_env;          object *oldlex = lex_env;
# Line 284  END: Line 284  END:
284  }  }
285    
286  static void  static void
287  Fdolist(VOL object arg)  FFN(Fdolist)(VOL object arg)
288  {  {
289    
290          object *oldlex = lex_env;          object *oldlex = lex_env;
# Line 365  END: Line 365  END:
365  }  }
366    
367  static void  static void
368  Fdotimes(VOL object arg)  FFN(Fdotimes)(VOL object arg)
369  {  {
370    
371          object *oldlex = lex_env;          object *oldlex = lex_env;

Legend:
Removed from v.1.4.6.1  
changed lines
  Added in v.1.4.6.2

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