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

Diff of /gcl/o/utils.c

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

revision 1.11 by camm, Sat Jul 24 13:14:30 2004 UTC revision 1.12 by camm, Fri Jun 10 15:14:01 2005 UTC
# Line 67  object Ifuncall_n(object fun, int n, ... Line 67  object Ifuncall_n(object fun, int n, ...
67  /* TODO: check array.c and nfunlink.c */  /* TODO: check array.c and nfunlink.c */
68  object Icheck_one_type(object x, enum type t)  object Icheck_one_type(object x, enum type t)
69  {  {
70      if (x->d.t != t) {      if (type_of(x) != t) {
71          return CEerror("Expected a ~a ", "Supply right type", 1,          return CEerror("Expected a ~a ", "Supply right type", 1,
72                         type_name(t), Cnil, Cnil, Cnil);                         type_name(t), Cnil, Cnil, Cnil);
73      }      }

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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