Re: Failure of compiling

[SAKA Toshihide (坂 敏秀 )<saka at yugen dot org>]

I installed guile-oops by my own RPM so that I could uninstall it
easily. I might fail to make the RPM, so I will check it.

>>>>> In <m37l8h9wsa.fsf@indy.STUDENT.CWRU.Edu> 
>>>>>	Keisuke Nishida <kxn30@po.cwru.edu> wrote:

> It fails to load GOOPS.  Could you try the following lines?

>   % guile
>   guile> (use-modules (oop goops goopscore))
>   guile> 

> If this shows an error, something is wrong with your GOOPS installation.

I got some messages as following:

$ guile
guile> (use-modules (oop goops goopscore))
standard input:1:1: In procedure process-use-modules in expression (process-use-modules (quote #)):
standard input:1:1: no such module (oop goops goopscore)
ABORT: (misc-error)

Type "(backtrace)" to get more information or "(debug)" to enter the debugger.
guile> (backtrace)

Backtrace:
0* (use-modules (oop goops goopscore))
1  [process-use-modules ((oop goops goopscore))]


GOOPS that I installed are located in:

/usr/bin/guile-oops
/usr/include/goops
/usr/include/goops-snarf.h
/usr/include/goops.h
/usr/include/goops/versiondat.h
/usr/lib/libgoopscore.a
/usr/lib/libgoopscore.la
/usr/lib/libgoopscore.so.4.0.0
/usr/share/guile/oop
/usr/share/guile/oop/goops
/usr/share/guile/oop/goops.scm
/usr/share/guile/oop/goops/active-slot.scm
/usr/share/guile/oop/goops/compile.scm
/usr/share/guile/oop/goops/composite-slot.scm
/usr/share/guile/oop/goops/describe.scm
/usr/share/guile/oop/goops/dispatch.scm
/usr/share/guile/oop/goops/internal.scm
/usr/share/guile/oop/goops/save.scm
/usr/share/guile/oop/goops/stklos.scm
/usr/share/guile/oop/goops/util.scm

Well, I found another guile interpreter, guile-oops. So I tried
it. Its result was as following:

$ guile-oops
guile> (use-modules (oop goops goopscore))
ERROR: In expression (define-public <class> #<struct 401e0030:401e0030>):
ERROR: Unbound variable: define-public
ABORT: (unbound-variable)

Type "(backtrace)" to get more information or "(debug)" to enter the debugger.
guile> (backtrace)

Backtrace:
 5* [resolve-interface (oop goops goopscore)]
 6  (let ((module #)) (and module (module-public-interface module)))
 7* [resolve-module (oop goops goopscore)]
 8  (let ((full-name #)) (let (#) (if already # #)))
    ...
 9  (begin (if # #) (make-modules-in # full-name))
10* (if (or # #) (try-load-module name))
11  [try-load-module (oop goops goopscore)]
12  (or (try-module-linked name) (try-module-autoload name) ...)
13* [try-module-linked (oop goops goopscore)]
14  [init-dynamic-module (oop goops goopscore)]
    ...
15  [loop ...
16*  [#<procedure (modinfo)> ((oop goops goopscore) 1073886240 #f)]
17   (if (equal? # modname) (begin # #) #f)
     ...
18   (let ((mod #)) (save-module-excursion (lambda () # # ...)) #t)
19*  [save-module-excursion #<procedure ()>]
20   (let (# #) (dynamic-wind # thunk #))
21   [dynamic-wind #<procedure ()> #<procedure ()> #<procedure ()>]
22*  [#<procedure ()>]
23*  [dynamic-call 1073886240 #f]
24*  (define-public <class> #<struct 401e0030:401e0030>)


> > I suspect that guile-emacs doesn't suit MULE 4.1, but I don't
> > have enough disk space to install Emacs 20.7 needed for me to
> > investigate it :(

> I guess it is not a problem.

Oh, thank you for your information.

> By the way, how could I get MULE 4.1?

It is an unofficial version of GNU Emacs. I got a patch extracted
from Meadow (the official MULE 4.1) against GNU Emacs 20.7 (MULE
4.0) from:

http://www.teu.ac.jp/nsit/~yatagawa/comp/emacs/emacs-20.7-mule-4.1.patch

See his page for more information:

http://www.teu.ac.jp/nsit/~yatagawa/comp/emacs/

-- 
SAKA Toshihide