aboutsummaryrefslogtreecommitdiff
path: root/src/ellinika/tests/trim-s.scm
blob: dced31b6cf449bd5ddb6a9dc2f41a6af99dbd300 (plain)
1
2
3
4
5
6
7
8
9
(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")
(load "../elmorph-public.scm")

(let ((word (string->elstr "παρακείμενος")))
  (display (elstr-trim word -1))
  (newline)
  (elstr-trim! word -1)
  (display word)
  (newline))

Return to:

Send suggestions and report system problems to the System administrator.