(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 <address@hidden> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org