[Chicken-janitors] #201: lazy-ffi: ##sys#cons-flonum doesn't exist anymore

[Chicken Trac]

#201: lazy-ffi: ##sys#cons-flonum doesn't exist anymore
------------------------+---------------------------------------------------
 Reporter:  jeronimo    |       Owner:       
     Type:  defect      |      Status:  new  
 Priority:  major       |   Milestone:  4.5.0
Component:  extensions  |     Version:       
 Keywords:              |  
------------------------+---------------------------------------------------
 It seems that lazy-ffi still uses ##sys#cons-flonum, which is not in core
 anymore. The tests subdirectory in the lazy-ffi egg itself has a file that
 shows the problem:

 {{{
 #;1> (load "test1.scm")
 ; loading test1.scm ...
 ; loading /usr/local/lib/chicken/5/lazy-ffi.so ...
 ; loading /usr/local/lib/chicken/5/lazy-ffi.import.so ...
 ; loading /usr/local/lib/chicken/5/scheme.import.so ...
 ; loading /usr/local/lib/chicken/5/chicken.import.so ...
 ; loading /usr/local/lib/chicken/5/foreign.import.so ...
 ; loading /usr/local/lib/chicken/5/srfi-1.import.so ...
 ; loading /usr/local/lib/chicken/5/srfi-69.import.so ...
 ; loading /usr/local/lib/chicken/5/easyffi.import.so ...
 ; loading /usr/local/lib/chicken/5/lazy-ffi-support.so ...
 ; loading library srfi-4 ...
 123 -> 45.67, ok: hello
 sleeping...

 Error: unbound variable: ##sys#cons-flonum

         Call history:

         <syntax>                (lazy-ffi:function (quote sin) (quote
 lazy-ffi:1270058921.014015239))
         <syntax>                (quote sin)
         <syntax>                (##core#quote sin)
         <syntax>                (quote lazy-ffi:1270058921.014015239)
         <syntax>                (##core#quote lazy-
 ffi:1270058921.014015239)
         <eval>          (print ((lazy-ffi:function (quote sin) (quote
 lazy-ffi:1270058921.014015239)) 33.4 return: double:))
         <eval>          ((lazy-ffi:function (quote sin) (quote lazy-
 ffi:1270058921.014015239)) 33.4 return: double:)
         <eval>          (lazy-ffi:function (quote sin) (quote lazy-
 ffi:1270058921.014015239))   <--
 }}}

-- 
Ticket URL: <http://www.irp.oist.jp/trac/chicken/ticket/201>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.