From bd89b4eb12e8a88ca540717c9a125b82a070a4f4 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 21 Mar 2008 23:21:02 -0500
Subject: [PATCH 1/2] mmap constants
---
build-support/grovel.c | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/build-support/grovel.c b/build-support/grovel.c
index 600865cf39..8422ec197c 100644
--- a/build-support/grovel.c
+++ b/build-support/grovel.c
@@ -12,12 +12,18 @@
#define UNIX
#endif
-#if (__OpenBSD__)
+#if defined(__OpenBSD__)
#define BSD
#define OPENBSD
#define UNIX
#endif
+#if defined(__APPLE__)
+ #define BSD
+ #define MACOSX
+ #define UNIX
+#endif
+
#if defined(linux)
#define LINUX
#define UNIX
@@ -34,6 +40,7 @@
#include <sys/stat.h>
#include <sys/socket.h>
#include <sys/errno.h>
+ #include <sys/mman.h>
#include <fcntl.h>
#include <unistd.h>
#endif
@@ -134,6 +141,10 @@ void unix_constants()
constant(EINTR);
constant(EAGAIN);
constant(EINPROGRESS);
+ constant(PROT_READ);
+ constant(PROT_WRITE);
+ constant(MAP_FILE);
+ constant(MAP_SHARED);
}
int main() {
From 3d1ba04462461f7d89fe3419b166f95bd56a9a89 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 22 Mar 2008 01:21:21 -0500
Subject: [PATCH 2/2] add remove-nth
---
extra/sequences/lib/lib.factor | 3 +++
1 file changed, 3 insertions(+)
diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor
index a6b6b73148..0b93552e76 100755
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@@ -225,3 +225,6 @@ PRIVATE>
: replace ( str oldseq newseq -- str' )
H{ } 2seq>assoc substitute ;
+
+: remove-nth ( seq n -- seq' )
+ cut-slice 1 tail-slice append ;