diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2005-02-13 23:08:34 +0000 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2005-02-13 23:08:34 +0000 |
| commit | 67b6b7c6b378957b6df622b20658a37768fe5b54 (patch) | |
| tree | b5d16fc8a0a6c729fbb71567c4619277ed0dcd8c /ellinika/xlat.scm | |
| parent | 73c95ef6bbfa9aa3997a0f770b3ec9aee0735663 (diff) | |
| download | ellinika-67b6b7c6b378957b6df622b20658a37768fe5b54.tar.gz ellinika-67b6b7c6b378957b6df622b20658a37768fe5b54.tar.bz2 | |
(ellinika:translate-input): Check argument
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@302 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'ellinika/xlat.scm')
| -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)) |