summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-06-16 20:14:24 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-06-16 20:14:24 +0000
commit019ac1c98780291cb3732fc5cc501118f3567893 (patch)
tree98ffa993343f1077518eba819a49ab731078fb78
parent9a8be5a707bc29f2861368e2022576b63225ed74 (diff)
downloadguile-019ac1c98780291cb3732fc5cc501118f3567893.tar.gz
(system-error-errno): New.
-rw-r--r--ice-9/boot-9.scm5
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}
;;;