(ice-9 slib) and system in CVS HEAD

(ice-9 slib) and system in CVS HEAD

[Jan Nieuwenhuizen]

When using slib.scm after installing guile from CVS HEAD, I get:

$ guile --debug -c '(use-modules (ice-9 slib))'
Backtrace:
In unknown file:
   ?: 15  [try-load-module (ice-9 slib)]
   ?: 16  (or (begin (try-module-linked name)) (try-module-autoload name) ...)
   ?: 17* [try-module-autoload (ice-9 slib)]
   ?: 18  (let* (# # # #) (resolve-module dir-hint-module-name #f) (and # #))
    ...
   ?: 19  (letrec ((load-file #)) (dynamic-wind (lambda () #) (lambda () #) ...) ...)
   ?: 20* [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
   ?: 21* [#<procedure #f ()>]
   ?: 22* (let* ((file #)) (cond (# => #) (# => #)))
   ?: 23  [#<procedure #f #> "/home/janneke/usr/pkg/guile/share/guile/1.7/ice-9/slib$
   ?: 24  [load-file #<primitive-procedure primitive-load> ...]
   ?: 25* [save-module-excursion #<procedure #f ()>]
   ?: 26  (let (# #) (dynamic-wind # thunk #))
   ?: 27  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
   ?: 28* [#<procedure #f ()>]
   ?: 29* [primitive-load "/home/janneke/usr/pkg/guile/share/guile/1.7/ice-9/slib.sc$
In /home/janneke/usr/pkg/guile/share/guile/1.7/ice-9/slib.scm:
 259: 30* (if (defined? #) (begin # #))
 260: 31  (define-public system (let (#) (lambda # #)))
 260: 32  (begin (define-private system (let* # #)) (eval-case (# #)))
In unknown file:
   ?: 33* (define-private system (let* (#) (lambda # #)))
In /home/janneke/usr/pkg/guile/share/guile/1.7/ice-9/slib.scm:
 261: 34* (let* ((guile-core-system system)) (lambda (str) (let (#) (or # #))))

/home/janneke/usr/pkg/guile/share/guile/1.7/ice-9/slib.scm:261:7: In expression (let* (#) (lambda # #)):
/home/janneke/usr/pkg/guile/share/guile/1.7/ice-9/slib.scm:261:7: Unbound variable: system

Am I missing something?  This works with 1.6.4.

Jan.

-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org


_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel

Re: (ice-9 slib) and system in CVS HEAD

[Kevin Ryde]

Jan Nieuwenhuizen <janneke@gnu.org> writes:
>
> Am I missing something?

Yes, a cvs update :-).  I made a change that should fix it :).


_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel

Re: (ice-9 slib) and system in CVS HEAD

[Jan Nieuwenhuizen]

Kevin Ryde writes:

>> Am I missing something?
>
> Yes, a cvs update :-).  I made a change that should fix it :).

Thanks.

Jan.

-- 
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org


_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel

Re: (ice-9 slib) and system in CVS HEAD

[Kevin Ryde]

Incidentally, I thought about adding some tests for some of these slib
interface bits, but wasn't sure if it'd end up needing the whole of
slib, or if there was an easy way to tell if the tests could be run or
not.


_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel