Loading mixp-0.4 in guile-1.6.8

[Bruce Carleton <rbc@rbcarleton.com>]

I'm trying to load mixp-0.4 in guile-1.6.8 and it's failing for some  
reason.  The host system is FreeBSD 7.0.  I installed guile-1.6.8  
from the FreeBSD package.  I installed mixp-0.4 from source using  
gcc-3.4.6.

My load path looks like:

guile> %load-path
("/usr/local/share/guile/site" "/usr/local/share/guile/1.6" "/usr/ 
local/share/guile" "/usr/local/share/guile" "/usr/local/share/guile"  
".")
guile>

 From the mixp Makefile:

GUILE_SITE = /usr/local/share/guile/site
subpkgdatadir = /usr/local/share/guile/site/xml

This is the error that I'm getting is:

guile> (use-modules (xml expat)
              (xml mixp))
<unnamed port>: In procedure process-define-module in expression  
(process-define-module (list # # ...)):<unnamed port>: invalid module  
name for use-syntax ((ice-9 syncase))
ABORT: (misc-error)
Type "(backtrace)" to get more information or "(debug)" to enter the  
debugger.guile>

The backtrace is:

guile> (backtrace)
Backtrace:In unknown file:
    ?: 11* (if (or # #) (try-load-module name))
    ?: 12  [try-load-module (xml mixp)]
    ?: 13  (or (begin (try-module-linked name)) (try-module-autoload  
name) ...)
    ?: 14* [try-module-autoload (xml mixp)]
    ?: 15  (let* (# # # #) (resolve-module dir-hint-module-name #f)  
(and # #))    ...
    ?: 16  (letrec ((load-file #)) (dynamic-wind (lambda () #)  
(lambda () #) ...) ...)
    ?: 17* [dynamic-wind #<procedure #f ()> #<procedure #f ()>  
#<procedure #f ()>]
    ?: 18* [#<procedure #f ()>]
    ?: 19* (let ((file #)) (cond (# => #) (# => #)))
    ?: 20  [#<procedure #f (full)> "/usr/local/share/guile/site/xml/ 
mixp.scm"]
    ?: 21  [load-file #<primitive-procedure primitive-load> ...]
    ?: 22* [save-module-excursion #<procedure #f ()>]
    ?: 23  (let (# #) (dynamic-wind # thunk #))
    ?: 24  [dynamic-wind #<procedure #f ()> #<procedure #f ()>  
#<procedure #f ()>]
    ?: 25* [#<procedure #f ()>]
    ?: 26* [primitive-load "/usr/local/share/guile/site/xml/mixp.scm"] 
In /usr/local/share/guile/site/xml/mixp.scm:
   25: 27* (define-module (xml mixp) #{:use-module}# ...)
   25: 28  (eval-case (# #) (else #))
In unknown file:
     ...
    ?: 29  (let ((m (process-define-module #))) (set-current-module  
m) m)
    ?: 30* [process-define-module ((xml mixp) #:use-module ((ice-9  
format)) ...)]
Type "(debug-enable 'backtrace)" if you would like a  
backtraceautomatically if an error occurs in the future.
guile>


Any ideas?

Thanks,

    --Bruce