The guile and chicken _runme scripts are now shared

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5979 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
John Lenz 2004-06-07 05:03:39 +00:00
commit 60f4c8988e
74 changed files with 505 additions and 490 deletions

View file

@ -595,17 +595,21 @@ SWIGEXPORT(void)
$realmodule_swig_init(int argc, C_word closure, C_word continuation) {
static int typeinit = 0;
int i;
C_word sym;
C_word tmp;
C_word *a;
C_word ret;
if (!typeinit) {
for (i = 0; swig_types_initial[i]; i++) {
swig_types[i] = SWIG_TypeRegister(swig_types_initial[i]);
}
typeinit = 1;
swig_init_helper (continuation);
ret = C_SCHEME_TRUE;
} else {
ret = C_SCHEME_FALSE;
}
else {
C_kontinue (continuation, C_SCHEME_FALSE);
}
}
a = C_alloc(2*$nummethods$symsize);
%}