diff options
| author | Andy Wingo <wingo@pobox.com> | 2015-01-22 13:04:11 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2015-01-22 13:04:11 +0100 |
| commit | d5dffec4ffcb93ab649acb2b6f7d8a013ba0e10e (patch) | |
| tree | 7dd1a075652e87bc446c44d17bb2f7ef1ced0062 /libguile/init.c | |
| parent | e2fafeb9012cbe5e3ec63326692a4cc3a22c318e (diff) | |
| parent | a7bbba05838cabe2294f498e7008e1c51db6d664 (diff) | |
| download | guile-d5dffec4ffcb93ab649acb2b6f7d8a013ba0e10e.tar.gz | |
Merge commit 'a7bbba05838cabe2294f498e7008e1c51db6d664'
Diffstat (limited to 'libguile/init.c')
| -rw-r--r-- | libguile/init.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/init.c b/libguile/init.c index d2928bd60..dd63574fd 100644 --- a/libguile/init.c +++ b/libguile/init.c @@ -1,6 +1,4 @@ -/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, - * 2004, 2006, 2009, 2010, 2011, 2012, 2013, - * 2014 Free Software Foundation, Inc. +/* Copyright (C) 1995-2004, 2006, 2009-2014 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 @@ -312,7 +310,9 @@ scm_boot_guile (int argc, char ** argv, void (*main_func) (), void *closure) /* On Windows, convert backslashes in argv[0] to forward slashes. */ - scm_i_mirror_backslashes (argv[0]); + if (argc > 0) + scm_i_mirror_backslashes (argv[0]); + c.main_func = main_func; c.closure = closure; c.argc = argc; |