diff options
Diffstat (limited to 'ellinika')
| -rw-r--r-- | ellinika/xlat.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ellinika/xlat.scm b/ellinika/xlat.scm index 401a9a6..8f221a4 100644 --- a/ellinika/xlat.scm +++ b/ellinika/xlat.scm @@ -188,7 +188,9 @@ ;; Translate the input string to UTF-8 if necessary. (define-public (ellinika:translate-input input) - (if (< (char->integer (string-ref input 0)) 127) + (if (and input + (not (string-null? input)) + (< (char->integer (string-ref input 0)) 127)) (ellinika:translate-kbd input) input)) |