guile/guile-core/ice-9 boot-9.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/16 13:14:25

Modified files:
        guile-core/ice-9: boot-9.scm 

Log message:
        (system-error-errno): New.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/boot-9.scm.diff?cvsroot=OldCVS&tr1=1.262&tr2=1.263&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.262 
guile/guile-core/ice-9/boot-9.scm:1.263
--- guile/guile-core/ice-9/boot-9.scm:1.262     Mon Jun 11 10:23:42 2001
+++ guile/guile-core/ice-9/boot-9.scm   Sat Jun 16 13:14:24 2001
@@ -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}
 ;;;