From 978f8a71ebe24d100a9a17450d1a2e20f18e4841 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 10 Jan 2002 10:06:33 +0000
Subject: [PATCH] Added s48_raise_os_error_7.

---
 c/external.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/c/external.c b/c/external.c
index 51e3e4e..67c4053 100644
--- a/c/external.c
+++ b/c/external.c
@@ -554,6 +554,16 @@ s48_raise_os_error_6(int the_errno, s48_value arg1, s48_value arg2,
 			     arg1, arg2, arg3, arg4, arg5, arg6);
 }
 
+void
+s48_raise_os_error_7(int the_errno, s48_value arg1, s48_value arg2, 
+		     s48_value arg3, s48_value arg4, s48_value arg5,
+		     s48_value arg6, s48_value arg7) {
+  s48_raise_scheme_exception(S48_EXCEPTION_OS_ERROR, 9,
+			     s48_enter_fixnum(the_errno),
+			     s48_enter_string(strerror(the_errno)),
+			     arg1, arg2, arg3, arg4, arg5, arg6, arg7);
+}
+
 void
 s48_raise_string_os_error(char *reason) {
   s48_raise_scheme_exception(S48_EXCEPTION_OS_ERROR, 1,