gEDA-user: Problem compiling gnetman . . . .

[sdb@cloud9.net (Stuart Brorson)]

Hi Bill Cox --

I thought I would give gnetman a little spin & try to figure out what
it does.  (I'm still unclear on the concept, but -- hey -- I'm a
newbie to this stuff!)  

I followed the instructions in the README.  Makemake ran just fine,
but compilation barfed when I ran "make".  Here's the make output:

[root@Fermat batch]# make
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../util/utbox.c -o obj/utbox.o
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../util/uthtbl.c -o obj/uthtbl.o
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../util/util.c -o obj/util.o
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../util/utmem.c -o obj/utmem.o
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../util/utunix.c -o obj/utunix.o
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../util/utrand.c -o obj/utrand.o
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../util/utvalue.c -o obj/utvalue.o
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../cir/cirddr.c -o obj/cirddr.o
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../cir/cirlex.c -o obj/cirlex.o
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../cir/cirmain.c -o obj/cirmain.o
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../cir/cirytab.c -o obj/cirytab.o
gcc -c -g -Wall -W -Wno-unused-parameter -Wno-unused-function
-DDDR_DEBUG -I../include ../guile/gumain.c -o obj/gumain.o
../guile/gumain.c: In function `load':
../guile/gumain.c:35: warning: implicit declaration of function
`scm_current_module'
../guile/gumain.c:35: too many arguments to function `scm_eval_x'
make: *** [obj/gumain.o] Error 1
[root@Fermat batch]# 

Here's the code around line 35 of gumain.c:

/*--------------------------------------------------------------------------------------------------
Load and evaluate a scheme file.
--------------------------------------------------------------------------------------------------*/static
SCM load(
    void *data)
{
    SCM loadPort = (SCM)data;
    SCM form;
    bool eofFound = false;

    while(!eofFound) {
        form = scm_read(loadPort);
        if (SCM_EOF_OBJECT_P(form)) {
            eofFound = true;
        } else {
          guMostRecentlyReadForm = form;
          scm_eval_x(form, scm_current_module());
        }
    }
    guMostRecentlyReadForm = SCM_BOOL_F;
    return SCM_BOOL_T;
}


Looking at the some of th include files for guile, it seems that
scm_eval_x takes only one arg.  What version of guile are you using?

Thanks for any and all pointers,

Stuart