Implementation for the R6RS (rnrs programs) library.

* module/Makefile.am: Add rnrs/6/programs.scm to RNRS_SOURCES.
* module/rnrs/6/programs.scm: New file.

diff --git a/module/Makefile.am b/module/Makefile.am
index 0b92ec3..322e650 100644 (file)
--- a/module/Makefile.am
+++ b/module/Makefile.am
@@ -262,6 +262,7 @@ RNRS_SOURCES =                                      \
   rnrs/6/exceptions.scm                                \
   rnrs/6/hashtables.scm                                \
   rnrs/6/lists.scm                             \
+  rnrs/6/programs.scm                          \
   rnrs/6/syntax-case.scm                       \
   rnrs/6/unicode.scm                           \
   rnrs/arithmetic/6/bitwise.scm                        \

diff --git a/module/rnrs/6/programs.scm b/module/rnrs/6/programs.scm
new file mode 100644 (file)
index 0000000..4daa781
--- /dev/null
+++ b/module/rnrs/6/programs.scm
@@ -0,0 +1,22 @@
+;;; programs.scm --- The R6RS process management library
+
+;;      Copyright (C) 2010 Free Software Foundation, Inc.
+;;
+;; This library is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU Lesser General Public
+;; License as published by the Free Software Foundation; either
+;; version 3 of the License, or (at your option) any later version.
+;; 
+;; This library is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; Lesser General Public License for more details.
+;; 
+;; You should have received a copy of the GNU Lesser General Public
+;; License along with this library; if not, write to the Free Software
+;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+\f
+
+(library (rnrs programs (6))
+  (export command-line exit)
+  (import (only (guile) command-line exit)))