mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

(scm_compile_shell_switches): Use scm_c_read_string for the "-e"

Browse source 
option instead of scm_str2symbol.  This allows things like (@ ...) to
be specified for the entry point.
This commit is contained in:
Marius Vollmer 2003-11-17 00:22:18 +00:00
parent c62a38765d
commit 8b31d75b34
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/script.c
View file

@ -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 * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either * 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 */ else if (! strcmp (argv[i], "-e")) /* entry point */
{ {
if (++i < argc) if (++i < argc)
entry_point = scm_str2symbol (argv[i]); entry_point = scm_c_read_string (argv[i]);
else else
scm_shell_usage (1, "missing argument to `-e' switch"); scm_shell_usage (1, "missing argument to `-e' switch");
} }