Documentation/ntweb/guile.patch

   1 diff -urN ../guile-core/libguile/Makefile.am ./libguile/Makefile.am
   2 --- ../guile-core/libguile/Makefile.am  Sat Oct 10 13:00:59 1998
   3 +++ ./libguile/Makefile.am      Wed Oct 21 10:58:56 1998
   4 @@ -10,7 +10,7 @@
   5  ETAGS_ARGS = --regex='/SCM_\(GLOBAL_\)?\(PROC\|PROC1\|SYMBOL\|VCELL\|CONST_LONG\).*\"\([^\"]\)*\"/\3/'
   6
   7  lib_LTLIBRARIES = libguile.la
   8 -bin_PROGRAMS = guile
   9 +bin_PROGRAMS = guile.exe
  10
  11  guile_SOURCES = guile.c
  12  guile_LDADD = libguile.la ${THREAD_LIBS_LOCAL}
  13 diff -urN ../guile-core/libguile/Makefile.in ./libguile/Makefile.in
  14 --- ../guile-core/libguile/Makefile.in  Sat Oct 10 13:00:59 1998
  15 +++ ./libguile/Makefile.in      Wed Oct 21 10:59:02 1998
  16 @@ -94,7 +94,7 @@
  17  ETAGS_ARGS = --regex='/SCM_\(GLOBAL_\)?\(PROC\|PROC1\|SYMBOL\|VCELL\|CONST_LONG\).*\"\([^\"]\)*\"/\3/'
  18
  19  lib_LTLIBRARIES = libguile.la
  20 -bin_PROGRAMS = guile
  21 +bin_PROGRAMS = guile.exe
  22
  23  guile_SOURCES = guile.c
  24  guile_LDADD = libguile.la ${THREAD_LIBS_LOCAL}
  25 diff -urN ../guile-core/libguile/dynl-dl.c ./libguile/dynl-dl.c
  26 --- ../guile-core/libguile/dynl-dl.c    Mon Mar 30 23:03:30 1998
  27 +++ ./libguile/dynl-dl.c        Wed Oct 21 09:41:55 1998
  28 @@ -45,8 +45,6 @@
  29     Author: Aubrey Jaffer
  30     Modified for libguile by Marius Vollmer */
  31
  32 -#include <dlfcn.h>
  33 -
  34  #ifdef RTLD_LAZY       /* Solaris 2. */
  35  #  define DLOPEN_MODE  RTLD_LAZY
  36  #else
  37 diff -urN ../guile-core/libguile/filesys.c ./libguile/filesys.c
  38 --- ../guile-core/libguile/filesys.c    Fri Oct 09 20:51:15 1998
  39 +++ ./libguile/filesys.c        Wed Oct 21 10:18:12 1998
  40 @@ -138,15 +138,19 @@
  41           if (fdes == -1)
  42             scm_syserror (s_chown);
  43         }
  44 +#if 0
  45        SCM_SYSCALL (rv = fchown (fdes, SCM_INUM (owner), SCM_INUM (group)));
  46 +#endif
  47      }
  48    else
  49      {
  50        SCM_ASSERT (SCM_NIMP (object) && SCM_ROSTRINGP (object),
  51                   object, SCM_ARG1, s_chown);
  52        SCM_COERCE_SUBSTR (object);
  53 +#if 0
  54        SCM_SYSCALL (rv = chown (SCM_ROCHARS (object),
  55                                SCM_INUM (owner), SCM_INUM (group)));
  56 +#endif
  57      }
  58    if (rv == -1)
  59      scm_syserror (s_chown);
  60 @@ -557,14 +561,18 @@
  61           if (fdes == -1)
  62             scm_syserror (s_truncate_file);
  63         }
  64 +#if 0
  65        SCM_SYSCALL (rv = ftruncate (fdes, csize));
  66 +#endif
  67      }
  68    else
  69      {
  70        SCM_ASSERT (SCM_NIMP (object) && SCM_ROSTRINGP (object),
  71                   object, SCM_ARG1, s_chown);
  72        SCM_COERCE_SUBSTR (object);
  73 +#if 0
  74        SCM_SYSCALL (rv = truncate (SCM_ROCHARS (object), csize));
  75 +#endif
  76      }
  77    if (rv == -1)
  78      scm_syserror (s_truncate_file);