summaryrefslogtreecommitdiff
path: root/libguile/feature.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2007-01-15 23:42:45 +0000
committerKevin Ryde <user42@zip.com.au>2007-01-15 23:42:45 +0000
commit23d72566286b3b2b6fec9548cbfdb5d79685e973 (patch)
treec6ca72b9de559edc3c14033a1b6fcfd9578b7519 /libguile/feature.c
parentcea95a2fa1f2ec810f0322a038a3af33da309e4a (diff)
downloadguile-23d72566286b3b2b6fec9548cbfdb5d79685e973.tar.gz
merge from 1.8
Diffstat (limited to 'libguile/feature.c')
-rw-r--r--libguile/feature.c18
1 files changed, 17 insertions, 1 deletions
diff --git a/libguile/feature.c b/libguile/feature.c
index 1d44a7790..6cd0e54ab 100644
--- a/libguile/feature.c
+++ b/libguile/feature.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002, 2003, 2004, 2006 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002, 2003, 2004, 2006, 2007 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
@@ -76,6 +76,22 @@ scm_set_program_arguments (int argc, char **argv, char *first)
scm_fluid_set_x (progargs_fluid, args);
}
+SCM_DEFINE (scm_set_program_arguments_scm, "set-program-arguments", 1, 0, 0,
+ (SCM lst),
+ "Set the command line arguments to be returned by\n"
+ "@code{program-arguments} (and @code{command-line}). @var{lst}\n"
+ "should be a list of strings, the first of which is the program\n"
+ "name (either a script name, or just @code{\"guile\"}).\n"
+ "\n"
+ "Program arguments are held in a fluid and therefore have a\n"
+ "separate value in each Guile thread. Neither the list nor the\n"
+ "strings within it are copied, so should not be modified later.")
+#define FUNC_NAME s_scm_set_program_arguments_scm
+{
+ return scm_fluid_set_x (progargs_fluid, lst);
+}
+#undef FUNC_NAME
+