comparison src/widget.c @ 412:697ef44129c6 r21-2-14

Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
99 struct gcpro gcpro1; 99 struct gcpro gcpro1;
100 100
101 newargs[0] = Fwidget_get (args[0], args[1]); 101 newargs[0] = Fwidget_get (args[0], args[1]);
102 newargs[1] = args[0]; 102 newargs[1] = args[0];
103 newargs[2] = Flist (nargs - 2, args + 2); 103 newargs[2] = Flist (nargs - 2, args + 2);
104 GCPRO1 (newargs[2]); 104 GCPRO1 ((newargs[2]));
105 RETURN_UNGCPRO (Fapply (3, newargs)); 105 RETURN_UNGCPRO (Fapply (3, newargs));
106 } 106 }
107 107
108 void 108 void
109 syms_of_widget (void) 109 syms_of_widget (void)