[Chicken-janitors] [Chicken-bugs] #426: Unable to build chicken from rev 8570 (unbound variable: put!)

[Chicken Scheme]

#426: Unable to build chicken from rev 8570 (unbound variable: put!)
----------------------+-----------------------------------------------------
 Reporter:  mario     |       Owner:  kon  
     Type:  defect    |      Status:  new  
 Priority:  major     |   Milestone:       
Component:  compiler  |     Version:  3.0.1
 Keywords:            |  
----------------------+-----------------------------------------------------
 Thanks to Peter Bex for noticing this.

 {{{
 $ make PLATFORM=linux
 make -f Makefile.linux all
 make[1]: Entering directory `/home/mario/tmp/trunk'
 sh svnrevision.sh
 chicken extras.scm -quiet -no-trace -optimize-level 2 -include-path .
 -explicit-use -output-file extras.c -extend private-namespace.scm
 Error: during expansion of (private ...) - unbound variable: put!

         Call history:

         <syntax>                (begin (private extras reverse-string-
 append fprintf0 generic-write unbound-value-thunk %object-uid-......
         <syntax>                (private extras reverse-string-append
 fprintf0 generic-write unbound-value-thunk %object-uid-hash %e......
         <eval>          (car args)
         <eval>          (cdr args)
         <eval>          (##sys#check-symbol namespace (quote private))
         <eval>          (symbol->string namespace)
         <eval>          (string-append (string (integer->char (string-
 length str))) (symbol->string namespace))
         <eval>          (string (integer->char (string-length str)))
         <eval>          (integer->char (string-length str))
         <eval>          (string-length str)
         <eval>          (symbol->string namespace)
         <eval>          (for-each (lambda (var) (put! var (quote
 c:namespace) (##sys#string->qualified-symbol prefix (symbol......
         <eval>          (put! var (quote c:namespace) (##sys#string
 ->qualified-symbol prefix (symbol->string var)))
         <eval>          (##sys#string->qualified-symbol prefix
 (symbol->string var))
         <eval>          (symbol->string var)    <--
 make[1]: *** [extras.c] Error 70
 make[1]: Leaving directory `/home/mario/tmp/trunk'
 make: *** [all] Error 2
 }}}

-- 
Ticket URL: <http://trac.callcc.org/ticket/426>
Chicken Scheme <http://www.call-with-current-continuation.org/>
The CHICKEN Scheme-to-C compiler