diff options
| -rw-r--r-- | kalzium/src/solver/modwrap.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/kalzium/src/solver/modwrap.c b/kalzium/src/solver/modwrap.c index 0ab5359e..e51ea3c5 100644 --- a/kalzium/src/solver/modwrap.c +++ b/kalzium/src/solver/modwrap.c @@ -21,8 +21,9 @@ #include <stdio.h> #include <string.h> -#include <caml/mlvalues.h> +#include <caml/alloc.h> #include <caml/callback.h> +#include <caml/mlvalues.h> char* solve_equation(const char * eq) { @@ -32,6 +33,6 @@ char* solve_equation(const char * eq) solve_equation_closure = caml_named_value("solve_equation"); } - return strdup(String_val(callback(*solve_equation_closure, copy_string(eq)) )); + return strdup(String_val(caml_callback(*solve_equation_closure, caml_copy_string(eq)) )); } |