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

Diff of /gcl/o/structure.c

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

revision 1.5 by camm, Tue Sep 24 19:01:46 2002 UTC revision 1.6 by camm, Fri Jan 24 18:38:28 2003 UTC
# Line 241  siLcopy_structure(void) Line 241  siLcopy_structure(void)
241          object x, y;          object x, y;
242          struct s_data *def;          struct s_data *def;
243    
244          if (vs_top-vs_base < 1) too_few_arguments();          check_arg(1);
245    /*      if (vs_top-vs_base < 1) too_few_arguments(); */
246          x = vs_base[0];          x = vs_base[0];
247          check_type_structure(x);          check_type_structure(x);
248          {BEGIN_NO_INTERRUPT;          {BEGIN_NO_INTERRUPT;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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