Loading mixp-0.4 in guile-1.6.8

Loading mixp-0.4 in guile-1.6.8

[Bruce Carleton]

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

Re: Loading mixp-0.4 in guile-1.6.8

[Neil Jerram]

Bruce Carleton <rbc@rbcarleton.com> writes:

> I'm trying to load mixp-0.4 in guile-1.6.8 and it's failing for some
> reason. [...]

Hi Bruce,

It looks like a fix to #:use-syntax processing was misapplied to the
1.6.x branch, back in January 2005.  (For the details, compare the diff
[0] on the CVS trunk with the diff [1] on the 1.6.x branch.

[0] http://cvs.savannah.gnu.org/viewvc/guile/guile-core/ice-9/boot-9.scm?root=guile&r1=1.268&r2=1.269
[1] http://cvs.savannah.gnu.org/viewvc/guile/guile-core/ice-9/boot-9.scm?root=guile&r1=1.266.2.18&r2=1.266.2.19&pathrev=branch_release-1-6 

)

The boot-9.scm patch below (which I have not tested) should fix this;
alternatively you could change the mixp source to use a top level
(use-syntax ...)  form, instead of a #:use-syntax ... within the
(define-module ...)  form.  Or you could upgrade to 1.8.4.  I hope one
of those solutions is feasible!

Regards,
      Neil

--- boot-9.scm	8 Dec 2006 20:37:40 -0000	1.266.2.26
+++ boot-9.scm	25 Mar 2008 21:15:32 -0000
@@ -1768,9 +1768,9 @@
 	     (let* ((interface-args (cadr kws))
 		    (interface (apply resolve-interface interface-args)))
 	       (and (eq? (car kws) #:use-syntax)
-		    (or (symbol? (car interface-args))
+		    (or (symbol? (caar interface-args))
 			(error "invalid module name for use-syntax"
-			       interface-args))
+			       (car interface-args)))
 		    (set-module-transformer!
 		     module
 		     (module-ref interface (car

Re: Loading mixp-0.4 in guile-1.6.8

[Neil Jerram]

Neil Jerram <neil@ossau.uklinux.net> writes:

> The boot-9.scm patch below (which I have not tested) should fix this;

FWIW, I've done a basic test of this patch now, so will commit to
1.6.x CVS.  We have no current plans for another 1.6.x release,
though, because we believe you should be able to upgrade painlessly to
1.8.x.  If that's not the case, let us know, and we'll see what we can
do about it.

Regards,
      Neil

> --- boot-9.scm	8 Dec 2006 20:37:40 -0000	1.266.2.26
> +++ boot-9.scm	25 Mar 2008 21:15:32 -0000
> @@ -1768,9 +1768,9 @@
>  	     (let* ((interface-args (cadr kws))
>  		    (interface (apply resolve-interface interface-args)))
>  	       (and (eq? (car kws) #:use-syntax)
> -		    (or (symbol? (car interface-args))
> +		    (or (symbol? (caar interface-args))
>  			(error "invalid module name for use-syntax"
> -			       interface-args))
> +			       (car interface-args)))
>  		    (set-module-transformer!
>  		     module
>  		     (module-ref interface (car

Re: Loading mixp-0.4 in guile-1.6.8

[Bruce Carleton]

Neil,

Thanks for the patch.  I'll test out your suggestions tonight.  I'll 
post my outcome to the list.

Best regards,

   --Bruce

Neil Jerram wrote:
> Neil Jerram <neil@ossau.uklinux.net> writes:
>
>   
>> The boot-9.scm patch below (which I have not tested) should fix this;
>>     
>
> FWIW, I've done a basic test of this patch now, so will commit to
> 1.6.x CVS.  We have no current plans for another 1.6.x release,
> though, because we believe you should be able to upgrade painlessly to
> 1.8.x.  If that's not the case, let us know, and we'll see what we can
> do about it.
>
> Regards,
>       Neil
>
>   
>> --- boot-9.scm	8 Dec 2006 20:37:40 -0000	1.266.2.26
>> +++ boot-9.scm	25 Mar 2008 21:15:32 -0000
>> @@ -1768,9 +1768,9 @@
>>  	     (let* ((interface-args (cadr kws))
>>  		    (interface (apply resolve-interface interface-args)))
>>  	       (and (eq? (car kws) #:use-syntax)
>> -		    (or (symbol? (car interface-args))
>> +		    (or (symbol? (caar interface-args))
>>  			(error "invalid module name for use-syntax"
>> -			       interface-args))
>> +			       (car interface-args)))
>>  		    (set-module-transformer!
>>  		     module
>>  		     (module-ref interface (car
>>     

Re: Loading mixp-0.4 in guile-1.6.8

[Bruce Carleton]

Neil,

The patch did the job for me.  I simply patched the installed  
guile-1.6.8.  My existing mixp code seems to be working properly.

I'll try to move to guile-1.8 sometime in the near future.

Thanks,

			--Bruce


On Mar 25, 2008, at 2:37 PM, Neil Jerram wrote:
> Neil Jerram <neil@ossau.uklinux.net> writes:
>
>> The boot-9.scm patch below (which I have not tested) should fix this;
>
> FWIW, I've done a basic test of this patch now, so will commit to
> 1.6.x CVS.  We have no current plans for another 1.6.x release,
> though, because we believe you should be able to upgrade painlessly to
> 1.8.x.  If that's not the case, let us know, and we'll see what we can
> do about it.
>
> Regards,
>       Neil
>
>> --- boot-9.scm	8 Dec 2006 20:37:40 -0000	1.266.2.26
>> +++ boot-9.scm	25 Mar 2008 21:15:32 -0000
>> @@ -1768,9 +1768,9 @@
>>  	     (let* ((interface-args (cadr kws))
>>  		    (interface (apply resolve-interface interface-args)))
>>  	       (and (eq? (car kws) #:use-syntax)
>> -		    (or (symbol? (car interface-args))
>> +		    (or (symbol? (caar interface-args))
>>  			(error "invalid module name for use-syntax"
>> -			       interface-args))
>> +			       (car interface-args)))
>>  		    (set-module-transformer!
>>  		     module
>>  		     (module-ref interface (car

---
Bruce Carleton + rbc@insidernewswire.com + (415) 390-2296