comparison src/widget.c @ 434:9d177e8d4150 r21-2-25

Import from CVS: tag r21-2-25
author cvs
date Mon, 13 Aug 2007 11:30:53 +0200
parents 3ecd8885ac67
children 183866b06e0b
comparison
equal deleted inserted replaced
433:892ca416f0fb 434:9d177e8d4150
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)