(GUILE::parse_args): Fix OBOE w/ `orig_len'.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@327 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Thien-Thi Nguyen 2000-03-05 07:04:28 +00:00
commit 3cd435c3f5

View file

@ -141,7 +141,7 @@ GUILE::parse_args (int argc, char *argv[])
// Make sure `prefix' ends in an underscore
orig_len = strlen (prefix);
if (prefix[orig_len] != '_') {
if (prefix[orig_len - 1] != '_') {
prefix[1 + orig_len] = 0;
prefix[orig_len] = '_';
}