diff options
| author | Ludovic Court`es | 2007-02-05 14:33:46 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-02-05 14:33:46 +0000 |
| commit | 02c35cc5a412282251cf5338e9d9b3234f753189 (patch) | |
| tree | bff7473ebc9c00a8940e5a3c9d271e6dfd207756 | |
| parent | be617853585fce968d4885d2ac284323c742309d (diff) | |
| download | skribilo-02c35cc5a412282251cf5338e9d9b3234f753189.tar.gz skribilo-02c35cc5a412282251cf5338e9d9b3234f753189.tar.lz skribilo-02c35cc5a412282251cf5338e9d9b3234f753189.zip | |
Internationalized `(skribilo condition)'.
* src/guile/skribilo/condition.scm: Autoload `(skribilo utils syntax)'.
(%call-with-skribilo-error-catch): I18n'd messages.
git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-16
| -rw-r--r-- | src/guile/skribilo/condition.scm | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/src/guile/skribilo/condition.scm b/src/guile/skribilo/condition.scm index 4d61efb..3490135 100644 --- a/src/guile/skribilo/condition.scm +++ b/src/guile/skribilo/condition.scm @@ -23,6 +23,7 @@ :autoload (srfi srfi-34) (guard) :use-module (srfi srfi-35) :use-module (srfi srfi-39) + :autoload (skribilo utils syntax) (_ N_) :export (&skribilo-error skribilo-error? &invalid-argument-error invalid-argument-error? &too-few-arguments-error too-few-arguments-error? @@ -118,34 +119,40 @@ (define (%call-with-skribilo-error-catch thunk exit exit-val) (guard (c ((invalid-argument-error? c) - (format (current-error-port) "in `~a': invalid argument: ~S~%" + (format (current-error-port) + (_ "in `~a': invalid argument: ~S~%") (invalid-argument-error:proc-name c) (invalid-argument-error:argument c)) (exit exit-val)) ((too-few-arguments-error? c) - (format (current-error-port) "in `~a': too few arguments: ~S~%" + (format (current-error-port) + (_ "in `~a': too few arguments: ~S~%") (too-few-arguments-error:proc-name c) (too-few-arguments-error:arguments c))) ((file-search-error? c) - (format (current-error-port) "~a: not found in path `~S'~%" + (format (current-error-port) + (_ "~a: not found in path `~S'~%") (file-error:file-name c) (file-search-error:path c)) (exit exit-val)) ((file-open-error? c) - (format (current-error-port) "~a: cannot open file~%" + (format (current-error-port) + (_ "~a: cannot open file~%") (file-error:file-name c)) (exit exit-val)) ((file-write-error? c) - (format (current-error-port) "~a: cannot write to file~%" + (format (current-error-port) + (_ "~a: cannot write to file~%") (file-error:file-name c)) (exit exit-val)) ((file-error? c) - (format (current-error-port) "file error: ~a~%" + (format (current-error-port) + (_ "file error: ~a~%") (file-error:file-name c)) (exit exit-val)) @@ -156,7 +163,7 @@ (if (procedure? handler) (handler c) (format (current-error-port) - "undefined skribilo error: ~S~%" + (_ "undefined skribilo error: ~S~%") c))) (exit exit-val))) |