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

Diff of /gcl/o/prog.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:53 2003 UTC
# Line 44  Foundation, 675 Mass Ave, Cambridge, MA Line 44  Foundation, 675 Mass Ave, Cambridge, MA
44                             VS                     |<-------- body1 -------->|                             VS                     |<-------- body1 -------->|
45  */  */
46    
47  void  FFD(Ftagbody)(object body)
 Ftagbody(object body)  
48  {  {
49    
50          object *old_top = vs_top;          object *old_top = vs_top;
# Line 104  Ftagbody(object body) Line 103  Ftagbody(object body)
103  }  }
104    
105  static void  static void
106  Fprog(VOL object arg)  FFN(Fprog)(VOL object arg)
107  {  {
108    
109          object *oldlex = lex_env;          object *oldlex = lex_env;
# Line 137  END: Line 136  END:
136  }  }
137    
138  static void  static void
139  FprogA(VOL object arg)  FFN(FprogA)(VOL object arg)
140  {  {
141    
142          object *oldlex = lex_env;          object *oldlex = lex_env;
# Line 170  END: Line 169  END:
169  }  }
170    
171  static void  static void
172  Fgo(object args)  FFN(Fgo)(object args)
173  {  {
174    
175          object lex_tag;          object lex_tag;
# Line 192  Fgo(object args) Line 191  Fgo(object args)
191  }  }
192    
193  static void  static void
194  Fprogv(object args)  FFN(Fprogv)(object args)
195  {  {
196    
197          object *top;          object *top;
# Line 236  Fprogv(object args) Line 235  Fprogv(object args)
235          bds_unwind(old_bds_top);          bds_unwind(old_bds_top);
236  }  }
237    
238  void  FFD(Fprogn)(object body)
 Fprogn(object body)  
239  {  {
240    
241          if(endp(body)) {          if(endp(body)) {
# Line 254  Fprogn(object body) Line 252  Fprogn(object body)
252  }  }
253    
254  static void  static void
255  Fprog1(object arg)  FFN(Fprog1)(object arg)
256  {  {
257    
258          object *top = vs_top;          object *top = vs_top;
# Line 271  Fprog1(object arg) Line 269  Fprog1(object arg)
269  }  }
270    
271  static void  static void
272  Fprog2(object arg)  FFN(Fprog2)(object arg)
273  {  {
274    
275          object *top = vs_top;          object *top = vs_top;
# Line 300  gcl_init_prog(void) Line 298  gcl_init_prog(void)
298    
299          make_special_form("PROGV", Fprogv);          make_special_form("PROGV", Fprogv);
300    
301          make_special_form("PROGN",Fprogn);          sLprogn=make_special_form("PROGN",Fprogn);
302          make_special_form("PROG1",Fprog1);          make_special_form("PROG1",Fprog1);
303          make_special_form("PROG2",Fprog2);          make_special_form("PROG2",Fprog2);
304  }  }

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