diff options
Diffstat (limited to 'src/ellinika/elmorph.scm4')
| -rw-r--r-- | src/ellinika/elmorph.scm4 | 25 |
1 files changed, 1 insertions, 24 deletions
diff --git a/src/ellinika/elmorph.scm4 b/src/ellinika/elmorph.scm4 index f916d1c..ede4d50 100644 --- a/src/ellinika/elmorph.scm4 +++ b/src/ellinika/elmorph.scm4 @@ -20,27 +20,4 @@ "LIBDIR/libguile-elmorph-v-VERSION" "scm_init_ellinika_elmorph_module") -(define-public (elstr-trim word n) - (let ((word (if (string? word) - (string->elstr word) - word))) - (cond - ((> n 0) - (elstr-slice word n (- (elstr-length word) n))) - ((< n 0) - (elstr-slice word 0 (+ (elstr-length word) n))) - (else - word)))) - -(define-public (elstr-trim! word n) - (let ((word (if (string? word) - (string->elstr word) - word))) - (cond - ((> n 0) - (elstr-slice! word n (- (elstr-length word) n))) - ((< n 0) - (elstr-slice! word 0 (+ (elstr-length word) n)))))) - - - +include([elmorph-public.scm]) |