(bind-func gdouble_halloc (lambda (value) (let ((gv:GValue* (halloc))) (g_value_init gv G_TYPE_DOUBLE) (g_value_set_double gv value) gv)))