gEDA-cvs: CVS update: g_smob.c

[cvspsrv@xxxxxxxx]

  User: cnieves 
  Date: 07/04/05 18:59:57

  Modified:    .        g_smob.c
  Log:
  g_get_object_type now returns a character instead of a string.
  
  * src/g_smob.c: make g_get_object_type scheme function return 
  
    a character instead of a string.
  
  
  
  
  Revision  Changes    Path
  1.14      +1 -4      eda/geda/gaf/libgeda/src/g_smob.c
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: g_smob.c
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/libgeda/src/g_smob.c,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -b -r1.13 -r1.14
  --- g_smob.c	5 Apr 2007 16:02:07 -0000	1.13
  +++ g_smob.c	5 Apr 2007 22:59:57 -0000	1.14
  @@ -611,7 +611,6 @@
     struct st_object_smob *object_struct;
     OBJECT *object;
     SCM returned = SCM_EOL;
  -  char type[2];
   
     SCM_ASSERT ( SCM_NIMP(object_smob) && 
                  ((long) SCM_CAR(object_smob) == object_smob_tag),
  @@ -623,9 +622,7 @@
     
     object = (OBJECT *) object_struct->object;
     
  -  sprintf(type, "%c", object->type);
  -
  -  returned = scm_makfrom0str(type);
  +  returned = SCM_MAKE_CHAR((unsigned char) object->type);
   
     return returned;
   }
  
  
  


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