[foo-cvs] foo/elkfoo/src tell.m,1.3,1.4

[Martin R. <ru...@us...>]

Update of /cvsroot/foo/foo/elkfoo/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13485/src

Modified Files:
	tell.m 
Log Message:
modern times arriving: removed K&R syntax in favor for ANSI

Index: tell.m
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/src/tell.m,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** tell.m	5 Aug 2004 23:13:56 -0000	1.3
--- tell.m	5 Aug 2004 23:26:48 -0000	1.4
***************
*** 64,177 ****
  #define SKIP_BODY(p, c) while (*p != c) if (!*p) goto format_error; else p++;
  
! static int Convert_Type(type)
! char *type;
  {
!     int t;
  
!     switch (*type++) {
!       case '\0':	return 0;
!       case _C_ID:	return C_ID;
[...1345 lines suppressed...]
!     }
  }
  
***************
*** 752,758 ****
  void elk_init_tell()
  {
!     Define_Primitive(P_Tell, "tell", 2, MANY, VARARGS);
!     Define_Primitive(P_Types, "types", 2, 2, EVAL);
!     Define_Primitive(P_Selector, "selector", 1, 1, EVAL);
!     P_Provide(Intern("tell"));
  }
--- 773,779 ----
  void elk_init_tell()
  {
!   Define_Primitive(P_Tell, "tell", 2, MANY, VARARGS);
!   Define_Primitive(P_Types, "types", 2, 2, EVAL);
!   Define_Primitive(P_Selector, "selector", 1, 1, EVAL);
!   P_Provide(Intern("tell"));
  }