Implement mechanism to pass system-call name and error code to Scheme

error handler when system-call errors occur.

diff --git a/v7/src/microcode/ux.h b/v7/src/microcode/ux.h
index 0ac33b8d23657f2640b15d8f04bbba0cf0136010..02a852f00866efe41a5ee8ee1af7bb6a82fba857 100644 (file)
--- a/v7/src/microcode/ux.h
+++ b/v7/src/microcode/ux.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ux.h,v 1.18 1991/01/24 04:33:55 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ux.h,v 1.19 1991/01/24 05:04:41 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -118,7 +118,7 @@ enum syserr_names
   syserr_file_too_large,
   syserr_filename_too_long,
   syserr_function_not_implemented,
-  syserr_improper_link
+  syserr_improper_link,
   syserr_inappropriate_io_control_operation,
   syserr_interrupted_function_call,
   syserr_invalid_argument,
@@ -143,7 +143,7 @@ enum syserr_names
   syserr_result_too_large,
   syserr_too_many_links,
   syserr_too_many_open_files,
-  syserr_too_many_open_files,
+  syserr_too_many_open_files
 };
 
 extern void EXFUN (error_system_call, (int code, enum syscall_names name));