diff options
Diffstat (limited to 'module/base64.scm')
| -rw-r--r-- | module/base64.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/module/base64.scm b/module/base64.scm index 594edf1f..c0080581 100644 --- a/module/base64.scm +++ b/module/base64.scm @@ -39,7 +39,10 @@ (+ 26 (- byte a))] [(<= zero byte nine) (+ 26 26 (- byte zero))] - [else (error "Invalid encoded value" byte (integer->char byte))])) + [else (scm-error 'decoding-error + "encoded->real" + "Invalid character in Base64 string: ~s" + (list byte) #f)])) (define ref (make-procedure-with-setter |