gEDA-cvs: CVS update: g_funcs.nw

[cvspsrv@xxxxxxxx]

  User: pbernaud
  Date: 05/02/24 17:11:34

  Modified:    .        g_funcs.nw
  Log:
  Replaced deprecated guile functions in g_funcs.nw.
  
  
  
  
  Revision  Changes    Path
  1.9       +1 -2      eda/geda/devel/gschem/noweb/g_funcs.nw
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: g_funcs.nw
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/devel/gschem/noweb/g_funcs.nw,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -b -r1.8 -r1.9
  --- g_funcs.nw	13 Feb 2005 21:53:24 -0000	1.8
  +++ g_funcs.nw	24 Feb 2005 22:11:34 -0000	1.9
  @@ -252,8 +252,7 @@
                      gpointer user_data)
   {
     SCM *plist = (SCM*)user_data;
  -  *plist = gh_cons(gh_str2scm((char*)value, strlen ((char*)value)),
  -                   *plist);
  +  *plist = scm_cons (scm_makfrom0str ((char*)value), *plist);
   }
   
   SCM get_selected_component_attributes(TOPLEVEL *toplevel)