diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-06-16 20:14:24 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-06-16 20:14:24 +0000 |
commit | 019ac1c98780291cb3732fc5cc501118f3567893 (patch) | |
tree | 98ffa993343f1077518eba819a49ab731078fb78 | |
parent | 9a8be5a707bc29f2861368e2022576b63225ed74 (diff) | |
download | guile-019ac1c98780291cb3732fc5cc501118f3567893.tar.gz |
(system-error-errno): New.
-rw-r--r-- | ice-9/boot-9.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index cad2a8548..bc6aff060 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -481,6 +481,11 @@ (and (> sl sufl) (string=? (substring str (- sl sufl) sl) suffix)))) +(define (system-error-errno args) + (if (eq? (car args) 'system-error) + (car (list-ref args 4)) + #f)) + ;;; {Error Handling} ;;; |