diff options
Diffstat (limited to 'src/ellinika/elmorph.c')
| -rw-r--r-- | src/ellinika/elmorph.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/ellinika/elmorph.c b/src/ellinika/elmorph.c index 5094db8..ab5dea4 100644 --- a/src/ellinika/elmorph.c +++ b/src/ellinika/elmorph.c @@ -131,3 +131,3 @@ _elstr_dup(struct elstr *elstr) if (!elnew->str) - scm_memory_error("_elstr_dup"); + scm_report_out_of_memory(); memcpy(elnew->str, elstr->str, sizeof(elstr->str[0]) * elstr->len); @@ -140,3 +140,3 @@ _elstr_dup(struct elstr *elstr) free(elnew->str); - scm_memory_error("_elstr_dup"); + scm_report_out_of_memory(); } @@ -152,3 +152,3 @@ _elstr_dup(struct elstr *elstr) free(elnew->str); - scm_memory_error("_elstr_dup"); + scm_report_out_of_memory(); } @@ -175,3 +175,3 @@ _elstr_concat(struct elstr *dest, struct elstr *src, const char *func_name) if (!wp) - scm_memory_error(func_name); + scm_report_out_of_memory(); dest->str = wp; @@ -183,3 +183,3 @@ _elstr_concat(struct elstr *dest, struct elstr *src, const char *func_name) -static scm_sizet +static size_t _elstr_free(SCM smob) @@ -791,3 +791,3 @@ _elstr_thema_aoristoy(SCM el, int destructive, const char *func_name) if (elmorph_thema_aoristoy(elstr->str, elstr->len, &wc, &wclen)) - scm_memory_error(func_name); + scm_report_out_of_memory(); free(elstr->str); |