gEDA-cvs: CVS update: g_rc.c

[cvspsrv@xxxxxxxx]

  User: peterb  
  Date: 07/06/04 12:15:42

  Modified:    .        g_rc.c
  Log:
  Replace deprecated Guile functions & macros.
  
  
  
  Replace deprecated SCM_STRINGP, SCM_INUM, SXM_INUMP & SCM_MAKINUM with
  
  recommended equivalents for Guile 1.8.
  
  
  
  
  Revision  Changes    Path
  1.21                 eda/geda/gaf/gsymcheck/src/g_rc.c
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: g_rc.c
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gsymcheck/src/g_rc.c,v
  retrieving revision 1.20
  retrieving revision 1.21
  diff -u -b -r1.20 -r1.21
  --- g_rc.c	7 Sep 2006 02:41:29 -0000	1.20
  +++ g_rc.c	4 Jun 2007 16:15:42 -0000	1.21
  @@ -80,7 +80,7 @@
     int index;
     char *mode;
   
  -  SCM_ASSERT (SCM_NIMP (scmmode) && SCM_STRINGP (scmmode), scmmode,
  +  SCM_ASSERT (scm_is_string (scmmode), scmmode,
                 SCM_ARG1, rc_name);
     
     mode = SCM_STRING_CHARS (scmmode);
  @@ -111,7 +111,7 @@
   
   SCM g_rc_gsymcheck_version(SCM version)
   {
  -  SCM_ASSERT (SCM_NIMP (version) && SCM_STRINGP (version), version,
  +  SCM_ASSERT (scm_is_string (version), version,
   	      SCM_ARG1, "gsymcheck-version");
     
     if (g_strcasecmp (SCM_STRING_CHARS (version), VERSION) != 0) {
  
  
  


_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs