[Scsh-checkins] CVS: scsh-0.6/scsh network1.c,1.23,1.24 syscalls1.c,1.23,1.24

[Mike Sperber <sperber@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv3227/scsh

Modified Files:
        network1.c syscalls1.c 
Log Message:
Make naming consistent with current Scheme 48:

argtype -> argument_type
argnumber -> argument_number


Index: network1.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/network1.c,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -r1.23 -r1.24
*** network1.c  2001/09/17 18:23:30     1.23
--- network1.c  2001/12/03 15:19:48     1.24
***************
*** 71,75 ****
        }
      default:
!       s48_raise_argtype_error (family);       
      }
  }
--- 71,75 ----
        }
      default:
!       s48_raise_argument_type_error (family); 
      }
  }
***************
*** 141,145 ****
        }
      default: 
!       s48_raise_argtype_error (family);       /* error unknown address family 
*/ 
      } 
  }
--- 141,145 ----
        }
      default: 
!       s48_raise_argument_type_error (family); /* error unknown address family 
*/ 
      } 
  }
***************
*** 209,213 ****
        }
      default:
!       s48_raise_argtype_error (family);           /* error unknown address 
family */
      }
  }
--- 209,213 ----
        }
      default:
!       s48_raise_argument_type_error (family);     /* error unknown address 
family */
      }
  }
***************
*** 243,247 ****
        }
      default:
!       s48_raise_argtype_error (family);       /* error unknown address family 
*/
      }
  }
--- 243,247 ----
        }
      default:
!       s48_raise_argument_type_error (family); /* error unknown address family 
*/
      }
  }
***************
*** 275,279 ****
        }
      default:
!       s48_raise_argtype_error (family);       /* error unknown address family 
*/
      }
  }
--- 275,279 ----
        }
      default:
!       s48_raise_argument_type_error (family); /* error unknown address family 
*/
      }
  }
***************
*** 384,388 ****
        }
      default:
!       s48_raise_argtype_error (s48_extract_fixnum (scm_family));      
        /* error unknown address family */
      }
--- 384,388 ----
        }
      default:
!       s48_raise_argument_type_error (s48_extract_fixnum (scm_family));        
        /* error unknown address family */
      }

Index: syscalls1.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syscalls1.c,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -r1.23 -r1.24
*** syscalls1.c 2001/10/18 08:51:32     1.23
--- syscalls1.c 2001/12/03 15:19:48     1.24
***************
*** 863,867 ****
      char *sys_errlist[]; 
    extern int sys_nerr;
!   return ( i < 0 || i > sys_nerr ) ? s48_raise_argtype_error(sch_i)
        : s48_enter_string (sys_errlist[i]);
  #endif /* !HAVE_STRERROR */
--- 863,867 ----
      char *sys_errlist[]; 
    extern int sys_nerr;
!   return ( i < 0 || i > sys_nerr ) ? s48_raise_argument_type_error(sch_i)
        : s48_enter_string (sys_errlist[i]);
  #endif /* !HAVE_STRERROR */