From 019ac1c98780291cb3732fc5cc501118f3567893 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sat, 16 Jun 2001 20:14:24 +0000
Subject: [PATCH] (system-error-errno): New.

---
 ice-9/boot-9.scm | 5 +++++
 1 file changed, 5 insertions(+)

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}
 ;;;