New upstream release: 1.9.1.

Package-Manager: portage-2.2.7/cvs/Linux x86_64
Manifest-Sign-Key: 0x6521E06D

1 files changed, 97 insertions, 0 deletions

diff --git a/dev-scheme/scheme48/files/scheme48-1.9.1-implicit-decl.patch b/dev-scheme/scheme48/files/scheme48-1.9.1-implicit-decl.patch
new file mode 100644
index 000000000000..60b2818e5181
--- /dev/null
+++ b/dev-scheme/scheme48/files/scheme48-1.9.1-implicit-decl.patch
@@ -0,0 +1,97 @@
+diff -r e16eb4429221 -r 125a138e07ed c/unix.h
+--- a/c/unix.h	Sun Mar 16 22:30:45 2014 -0700
++++ b/c/unix.h	Mon Mar 17 11:22:54 2014 +0100
+@@ -25,7 +25,7 @@
+     if (STATUS != NULL)						\
+       break;							\
+     else if (errno != EINTR)					\
+-      s48_os_error(NULL, errno, 0); }				\
++      s48_os_error_2(call, NULL, errno, 0); }			\
+  } while (0)
+ 
+ #define RETRY_OR_RAISE_NEG(STATUS, CALL)			\
+@@ -35,7 +35,7 @@
+     if (STATUS >= 0)						\
+       break;							\
+     else if (errno != EINTR)					\
+-      s48_os_error(NULL, errno, 0); }				\
++      s48_os_error_2(call, NULL, errno, 0); }			\
+  } while (0)
+ 
+
+diff -r e16eb4429221 -r 125a138e07ed c/unix/fd-io.c
+--- a/c/unix/fd-io.c	Sun Mar 16 22:30:45 2014 -0700
++++ b/c/unix/fd-io.c	Mon Mar 17 11:22:54 2014 +0100
+@@ -323,21 +323,6 @@
+  * one.
+  */
+ 
+-s48_value
+-s48_add_channel(s48_value mode, s48_value id, long fd)
+-{
+-  if (mode == S48_CHANNEL_STATUS_OUTPUT
+-      && fd != 1
+-      && fd != 2) {
+-    int flags;
+-    RETRY_OR_RAISE_NEG(flags, fcntl(fd, F_GETFL));
+-    if ((flags & O_NONBLOCK) == 0)
+-      fprintf(stderr,
+-        "Warning: output channel file descriptor %d is not non-blocking\n",
+-	      (int) fd); }
+-  return s48_really_add_channel(mode, id, fd);
+-}
+-
+ s48_ref_t
+ s48_add_channel_2(s48_call_t call, s48_ref_t mode, s48_ref_t id, long fd)
+ {
+diff -r e16eb4429221 -r 125a138e07ed c/win32/fd-io.c
+--- a/c/win32/fd-io.c	Sun Mar 16 22:30:45 2014 -0700
++++ b/c/win32/fd-io.c	Mon Mar 17 11:22:54 2014 +0100
+@@ -1211,13 +1211,6 @@
+  * one.
+  */
+ 
+-s48_value
+-s48_add_channel(s48_value mode, s48_value id, long fd)
+-{
+-  /* back to the VM */
+-  return s48_really_add_channel(mode, id, fd);
+-}
+-
+ s48_ref_t
+ s48_add_channel_2(s48_call_t call, s48_ref_t mode, s48_ref_t id, long fd)
+ {
+diff -r 98197bf570a4 -r e16eb4429221 c/main.c
+--- a/c/main.c	Sun Mar 02 16:50:12 2014 +0100
++++ b/c/main.c	Sun Mar 16 22:30:45 2014 -0700
+@@ -5,6 +5,7 @@
+  */
+ 
+ extern long s48_initialize(int *argc, char ***argv);
++extern long s48_call_startup_procedure(char **, long);
+ 
+ int
+ main(int argc, char **argv)
+diff -r 98197bf570a4 -r e16eb4429221 c/posix/proc.c
+--- a/c/posix/proc.c	Sun Mar 02 16:50:12 2014 +0100
++++ b/c/posix/proc.c	Sun Mar 16 22:30:45 2014 -0700
+@@ -9,6 +9,7 @@
+  * Scheme 48/POSIX process environment interface
+  */
+ 
++#define _GNU_SOURCE
+ #include <stdio.h>
+ #include <errno.h>
+ #include <string.h>
+diff -r 98197bf570a4 -r e16eb4429221 c/unix/socket.c
+--- a/c/unix/socket.c	Sun Mar 02 16:50:12 2014 +0100
++++ b/c/unix/socket.c	Sun Mar 16 22:30:45 2014 -0700
+@@ -11,6 +11,7 @@
+ 
+ #include <sys/types.h>
+ #include <sys/socket.h>
++#include <unistd.h>
+ #include <errno.h>
+ #include <fcntl.h>
+ #include <stdlib.h>
+