Commit e9a1d615 authored by Ariel Rios's avatar Ariel Rios Committed by Ariel Rios

Use scm_c_define_gsubr as required by guile 1.4

2001-05-22  Ariel Rios  <ariel@linuxppc.org>

* smob-value.c (init_value_type): Use scm_c_define_gsubr as required by guile 1.4

* plugin.c (plugin_init_general): Ditto
parent b89fa763
2001-05-22 Ariel Rios <ariel@linuxppc.org>
* smob-value.c (init_value_type): Use scm_c_define_gsubr as required by guile 1.4
* plugin.c (plugin_init_general): Ditto
2001-05-20 Jody Goldberg <jgoldberg@home.com>
* Release 0.65
......
......@@ -219,8 +219,8 @@ plugin_init_general (ErrorInfo **ret_error)
init_value_type ();
scm_make_gsubr ("gnumeric-funcall", 2, 0, 0, scm_gnumeric_funcall);
scm_make_gsubr ("register-function", 5, 0, 0, scm_register_function);
scm_c_define_gsubr ("gnumeric-funcall", 2, 0, 0, scm_gnumeric_funcall);
scm_c_define_gsubr ("register-function", 5, 0, 0, scm_register_function);
dir = gnumeric_sys_data_dir ("guile");
name = g_strconcat (dir, "gnumeric_startup.scm", NULL);
......
......@@ -262,14 +262,14 @@ init_value_type ()
scm_set_smob_print (value_tag, print_value);
scm_set_smob_equalp (value_tag, equalp_value);
scm_make_gsubr ("make-value", 1, 0, 0, make_value);
scm_make_gsubr ("value-new-bool", 1, 0, 0, scm_value_new_bool);
scm_make_gsubr ("value-new-float", 1, 0, 0, scm_value_new_float);
scm_make_gsubr ("value-new-string", 1, 0, 0, scm_value_new_string);
scm_make_gsubr ("value-get-as-string", 1, 0, 0, scm_value_get_as_string);
scm_make_gsubr ("value-get-as-int", 1, 0, 0, scm_value_get_as_int);
scm_make_gsubr ("value-get-as-float", 1, 0, 0, scm_value_get_as_float);
scm_make_gsubr ("value-get-as-list", 1, 0, 0, scm_value_get_as_list);
scm_c_define_gsubr ("make-value", 1, 0, 0, make_value);
scm_c_define_gsubr ("value-new-bool", 1, 0, 0, scm_value_new_bool);
scm_c_define_gsubr ("value-new-float", 1, 0, 0, scm_value_new_float);
scm_c_define_gsubr ("value-new-string", 1, 0, 0, scm_value_new_string);
scm_c_define_gsubr ("value-get-as-string", 1, 0, 0, scm_value_get_as_string);
scm_c_define_gsubr ("value-get-as-int", 1, 0, 0, scm_value_get_as_int);
scm_c_define_gsubr ("value-get-as-float", 1, 0, 0, scm_value_get_as_float);
scm_c_define_gsubr ("value-get-as-list", 1, 0, 0, scm_value_get_as_list);
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment