Parent Directory | Revision Log | 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 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |