Parent Directory | Revision Log | Patch
revision 1.48 by mvo, Tue Nov 6 12:53:22 2001 UTC | revision 1.49 by ossau, Tue Jan 22 23:31:39 2002 UTC | |
---|---|---|
# | Line 515 scm_compile_shell_switches (int argc, ch | Line 515 scm_compile_shell_switches (int argc, ch |
515 | else if (! strcmp (argv[i], "-e")) /* entry point */ | else if (! strcmp (argv[i], "-e")) /* entry point */ |
516 | { | { |
517 | if (++i < argc) | if (++i < argc) |
518 | entry_point = gh_symbol2scm (argv[i]); | entry_point = scm_str2symbol (argv[i]); |
519 | else | else |
520 | scm_shell_usage (1, "missing argument to `-e' switch"); | scm_shell_usage (1, "missing argument to `-e' switch"); |
521 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |