summaryrefslogtreecommitdiffabout
path: root/src/ellinika/tests/suffix-el.scm
blob: c2981752ac39ce4cf54b14fbb691fa9ca4fc3940 (plain)
1
2
3
4
5
6
7
8
9
10
11
(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module")

(display
 (elstr-suffix? (string->elstr "παρακείμενος") "μενος"))
(newline)
(display
 (elstr-suffix? (string->elstr "παρακείμενος") "μεν"))
(newline)
(display
 (elstr-suffix? (string->elstr "παρακείμενος") "α" "οντας" "μενος"))
(newline)

Return to:

Send suggestions and report system problems to the System administrator.