From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Mar 2003 01:12:29 +0000 (+0000)
Subject: Update coding of channel argument procedures.
X-Git-Tag: 20090517-FFI~1938
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=543ec3ad1da17321e120d4681ffc3a13006aee59;p=mit-scheme.git

Update coding of channel argument procedures.
---

diff --git a/v7/src/microcode/prosio.c b/v7/src/microcode/prosio.c
index 9dcd0ec72..113afc1e0 100644
--- a/v7/src/microcode/prosio.c
+++ b/v7/src/microcode/prosio.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prosio.c,v 1.23 2003/02/14 18:28:23 cph Exp $
+$Id: prosio.c,v 1.24 2003/03/25 01:12:29 cph Exp $
 
 Copyright 1987,1990,1991,1992,1993,1994 Massachusetts Institute of Technology
 Copyright 1996,1997,2001,2003 Massachusetts Institute of Technology
@@ -39,11 +39,11 @@ DEFUN (arg_to_channel, (argument, arg_number),
        SCHEME_OBJECT argument AND
        int arg_number)
 {
-  if (! ((INTEGER_P (argument)) && (integer_to_long_p (argument))))
+  if (! ((INTEGER_P (argument)) && (integer_to_ulong_p (argument))))
     error_wrong_type_arg (arg_number);
   {
-    fast long channel = (integer_to_long (argument));
-    if (! ((channel >= 0) || (channel < ((long) OS_channel_table_size))))
+    unsigned long channel = (integer_to_ulong (argument));
+    if (! (channel < OS_channel_table_size))
       error_wrong_type_arg (arg_number);
     return (channel);
   }
@@ -52,9 +52,8 @@ DEFUN (arg_to_channel, (argument, arg_number),
 Tchannel
 DEFUN (arg_channel, (arg_number), int arg_number)
 {
-  fast Tchannel channel =
-    (arg_to_channel ((ARG_REF (arg_number)), arg_number));
-  if (! (OS_channel_open_p (channel)))
+  Tchannel channel = (arg_to_channel ((ARG_REF (arg_number)), arg_number));
+  if (!OS_channel_open_p (channel))
     error_bad_range_arg (arg_number);
   return (channel);
 }