mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 09:40:25 +02:00
Code Activity

(system-error-errno): New.

Browse source
This commit is contained in:
Marius Vollmer 2001-06-16 20:14:24 +00:00
parent 9a8be5a707
commit 019ac1c987
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/boot-9.scm
View file

@ -481,6 +481,11 @@
(and (> sl sufl) (and (> sl sufl)
(string=? (substring str (- sl sufl) sl) suffix)))) (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} ;;; {Error Handling}
;;; ;;;