From 8b31d75b34c98ead99d76cd6752d167430c60065 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 17 Nov 2003 00:22:18 +0000 Subject: [PATCH] (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. --- libguile/script.c | 4 ++-- 1 file 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"); }