/[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.2 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.3 by camm, Tue Sep 24 19:01:45 2002 UTC
# Line 30  Foundation, 675 Mass Ave, Cambridge, MA Line 30  Foundation, 675 Mass Ave, Cambridge, MA
30  void  void
31  Floop(object form)  Floop(object form)
32  {  {
         object endp_temp;  
33    
34          object x;          object x;
35          object *oldlex = lex_env;          object *oldlex = lex_env;
# Line 83  LOOP: Line 82  LOOP:
82  void  void
83  do_var_list(object var_list)  do_var_list(object var_list)
84  {  {
         object endp_temp;  
85    
86          object is, x, y;          object is, x, y;
87    
# Line 123  do_var_list(object var_list) Line 121  do_var_list(object var_list)
121  }  }
122    
123  void  void
124  Fdo(object arg)  Fdo(VOL object arg)
125  {  {
         object endp_temp;  
126    
127          object *oldlex = lex_env;          object *oldlex = lex_env;
128          object *old_top;          object *old_top;
# Line 209  END: Line 206  END:
206  }  }
207    
208  void  void
209  FdoA(object arg)  FdoA(VOL object arg)
210  {  {
         object endp_temp;  
211    
212          object *oldlex = lex_env;          object *oldlex = lex_env;
213          object *old_top;          object *old_top;
# Line 288  END: Line 284  END:
284  }  }
285    
286  void  void
287  Fdolist(object arg)  Fdolist(VOL object arg)
288  {  {
         object endp_temp;  
289    
290          object *oldlex = lex_env;          object *oldlex = lex_env;
291          object *old_top;          object *old_top;
# Line 370  END: Line 365  END:
365  }  }
366    
367  void  void
368  Fdotimes(object arg)  Fdotimes(VOL object arg)
369  {  {
         object endp_temp;  
370    
371          object *oldlex = lex_env;          object *oldlex = lex_env;
372          object *old_top;          object *old_top;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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