1 files changed, 29 insertions, 0 deletions
diff --git a/cad/gwave/files/patch-src_xsnarf.h b/cad/gwave/files/patch-src_xsnarf.h
new file mode 100644
index 000000000000..b99f769338db
--- /dev/null
+++ b/cad/gwave/files/patch-src_xsnarf.h
@@ -0,0 +1,29 @@
+--- src/xsnarf.h.orig	2008-03-02 16:15:31.000000000 -0500
++++ src/xsnarf.h	2008-03-02 16:15:35.000000000 -0500
+@@ -83,22 +83,22 @@ XSCM_SNARF_DOCS(concept, name, 0, 0, 0, 
+ 
+ #define XSCM_VCELL(c_name, scheme_name, docstring) \
+ XSCM_SNARF_HERE(static SCM c_name) \
+-XSCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, SCM_BOOL_F)); \
++XSCM_SNARF_INIT(c_name = scm_permanent_object (scm_str2symbol (scheme_name)); SCM_SETCDR (c_name, SCM_BOOL_F)); \
+ XSCM_SNARF_DOCS(vcell, scheme_name, 0, 0, 0, 0, docstring)
+ 
+ #define XSCM_GLOBAL_VCELL(c_name, scheme_name, docstring) \
+ XSCM_SNARF_HERE(SCM c_name) \
+-XSCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, SCM_BOOL_F)); \
++XSCM_SNARF_INIT(c_name = scm_permanent_object (scm_str2symbol (scheme_name)); SCM_SETCDR (c_name, SCM_BOOL_F)); \
+ XSCM_SNARF_DOCS(vcell, scheme_name, 0, 0, 0, 0, docstring)
+ 
+ #define XSCM_VCELL_INIT(c_name, scheme_name, init_val, docstring) \
+ XSCM_SNARF_HERE(static SCM c_name) \
+-XSCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, init_val));\
++XSCM_SNARF_INIT(c_name = scm_permanent_object (scm_str2symbol (scheme_name)); SCM_SETCDR (c_name, init_val));\
+ XSCM_SNARF_DOCS(vcell, scheme_name, 0, 0, 0, 0, docstring)
+ 
+ #define XSCM_GLOBAL_VCELL_INIT(c_name, scheme_name, init_val, docstring) \
+ XSCM_SNARF_HERE(SCM c_name) \
+-XSCM_SNARF_INIT(c_name = scm_permanent_object (scm_intern0 (scheme_name)); SCM_SETCDR (c_name, init_val));\
++XSCM_SNARF_INIT(c_name = scm_permanent_object (scm_str2symbol (scheme_name)); SCM_SETCDR (c_name, init_val));\
+ XSCM_SNARF_DOCS(vcell, scheme_name, 0, 0, 0, 0, docstring)
+ 
+ #endif /* GUILE_EXT_H__ */