summaryrefslogtreecommitdiff
path: root/libguile/script.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2003-11-17 00:22:18 +0000
committerMarius Vollmer <mvo@zagadka.de>2003-11-17 00:22:18 +0000
commit8b31d75b34c98ead99d76cd6752d167430c60065 (patch)
treece0f877ce4f6ae5b208b4abfaff75f531f3d48e0 /libguile/script.c
parentc62a38765d0b8d508d89eda037fa00787889d42b (diff)
downloadguile-8b31d75b34c98ead99d76cd6752d167430c60065.tar.gz
(scm_compile_shell_switches): Use scm_c_read_string for the "-e"
option instead of scm_str2symbol. This allows things like (@ ...) to be specified for the entry point.
Diffstat (limited to 'libguile/script.c')
-rw-r--r--libguile/script.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/script.c b/libguile/script.c
index 3e6624594..74a910db0 100644
--- a/libguile/script.c
+++ b/libguile/script.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002 Free Software Foundation, Inc.
+/* Copyright (C) 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2002, 2003 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
@@ -495,7 +495,7 @@ scm_compile_shell_switches (int argc, char **argv)
else if (! strcmp (argv[i], "-e")) /* entry point */
{
if (++i < argc)
- entry_point = scm_str2symbol (argv[i]);
+ entry_point = scm_c_read_string (argv[i]);
else
scm_shell_usage (1, "missing argument to `-e' switch");
}