diff -c temp/scm/ChangeLog temp/nscm/ChangeLog
*** temp/scm/ChangeLog	Wed Sep  8 12:11:53 1993
--- temp/nscm/ChangeLog	Thu Sep  9 13:13:44 1993
***************
*** 1,3 ****
--- 1,8 ----
+ Thu Sep  9 13:09:28 1993  Aubrey Jaffer  (jaffer at camelot)
+ 
+ 	From: Vincent Manis <manis@cs.ubc.ca>
+ 	* sys.c (stwrite init_types add_final): fixed declarations.
+ 
  Sat Sep  4 23:00:49 1993    (jaffer at jacal)
  
  	* 4c3: released.
diff -c temp/scm/proto.h temp/nscm/proto.h
*** temp/scm/proto.h	Wed Sep  8 11:26:22 1993
--- temp/nscm/proto.h	Thu Sep  9 13:13:52 1993
***************
*** 171,177 ****
  SCM ren_fil P((SCM oldname , SCM newname ));
  SCM lisatty P((SCM port ));
  void prinport P((SCM exp , SCM port , char *type ));
! sizet stwrite P((char *str , sizet siz , sizet num , SCM *p ));
  SCM mkstrport P((SCM cs , int w ));
  SCM cwos P((SCM proc ));
  SCM cwis P((SCM str , SCM proc ));
--- 171,177 ----
  SCM ren_fil P((SCM oldname , SCM newname ));
  SCM lisatty P((SCM port ));
  void prinport P((SCM exp , SCM port , char *type ));
! sizet stwrite P((char *str , sizet siz , sizet num , SCM p ));
  SCM mkstrport P((SCM cs , int w ));
  SCM cwos P((SCM proc ));
  SCM cwis P((SCM str , SCM proc ));
diff -c temp/scm/sys.c temp/nscm/sys.c
*** temp/scm/sys.c	Tue Sep  7 22:42:30 1993
--- temp/nscm/sys.c	Thu Sep  9 13:07:15 1993
***************
*** 300,306 ****
  }
  sizet stwrite(str,siz,num,p)
       sizet siz, num;
!      char *str; SCM *p;
  {
    sizet ind = INUM(CAR(p));
    sizet len = siz * num;
--- 300,306 ----
  }
  sizet stwrite(str,siz,num,p)
       sizet siz, num;
!      char *str; SCM p;
  {
    sizet ind = INUM(CAR(p));
    sizet len = siz * num;
***************
*** 381,386 ****
--- 381,387 ----
  static smobfuns bigob = {mark0,/*bigfree*/0,bigprint,bigequal};
  void (**finals)() = 0;
  sizet num_finals = 0;
+ static char s_final[] = "final";
  
  void init_types()
  {
***************
*** 397,403 ****
    newsmob(&flob);
    newsmob(&bigob);
    newsmob(&bigob);
!   finals = (void(**)())must_malloc(2L * sizeof(finals[0]));
    num_finals = 0;
  }
  
--- 398,404 ----
    newsmob(&flob);
    newsmob(&bigob);
    newsmob(&bigob);
!   finals = (void(**)())must_malloc(2L * sizeof(finals[0]), s_final);
    num_finals = 0;
  }
  
***************
*** 406,413 ****
  {
    DEFER_INTS;
    finals = (void (**)()) must_realloc((char *)finals,
! 				      (1+num_finals)*sizeof(finals[0]),
! 				      "final");
    finals[num_finals++] = final;
    ALLOW_INTS;
    return;
--- 407,414 ----
  {
    DEFER_INTS;
    finals = (void (**)()) must_realloc((char *)finals,
! 				      (1L+num_finals)*sizeof(finals[0]),
! 				      s_final);
    finals[num_finals++] = final;
    ALLOW_INTS;
    return;