# Bazaar revision bundle v0.8
#
# message:
#   2006-09-01  Andy Wingo  <address@hidden>
#   
#   	* guile/g-wrap/guile/ws/standard.scm (destroy-value-cg): A
#   	non-inlined non-null caller-owned string always comes from an
#   	argument, which is copied from its scheme values. So while from
#   	the perspective of the code that we call, it is a const char*, we
#   	will need to free it at the end. Cast so no warning is emitted.
#   	This is a bit of a hack; the other solution would be to have
#   	everything be a char*. Better to keep the compiler warnings.
#   
# committer: Andy Wingo <address@hidden>
# date: Fri 2006-09-01 18:30:31.355094910 +0200

=== modified file guile/g-wrap/guile/ws/standard.scm
--- guile/g-wrap/guile/ws/standard.scm
+++ guile/g-wrap/guile/ws/standard.scm
@@ -402,7 +402,7 @@
 				"by `scm_to_locale_string ()' \n"
 				"   in `unwrap-value'.  */\n"
 				"if ("(var value)" != NULL)\n"
-				"  free ("(var value)");\n"
+				"  free ((char*)"(var value)");\n"
 				"}\n")
 			  '())
 		      '()))

# revision id: address@hidden
# sha1: bd02efeb3f923c94c4e1c25f1717a4ea93d8fd89
# inventory sha1: 8fc8b2beb73e917663ef14b1047823b2b1b692d4
# parent ids:
#   address@hidden
# base id: address@hidden
# properties:
#   branch-nick: wingo