[Chicken-janitors] #832: tokyocabinet: Error in tc-bdb-fwm-keys procedure

[Chicken Trac]

#832: tokyocabinet: Error in tc-bdb-fwm-keys procedure
------------------------+---------------------------------------------------
 Reporter:  sjamaan     |       Owner:  ashinn
     Type:  defect      |      Status:  new   
 Priority:  minor       |   Milestone:  4.8.0 
Component:  extensions  |     Version:  4.7.x 
 Keywords:              |  
------------------------+---------------------------------------------------
 There seems to be a problem in the order and types of arguments passed to
 the C function "tcbdbfwmkeys", as indicated by the scrutinizer at
 http://parenteses.org/mario/misc/specialize-
 report/install/tokyocabinet.html

 I don't have the Tokyocabinet library installed, so the patch below was
 not tested.

 {{{
 Index: tokyocabinet.scm
 ===================================================================
 --- tokyocabinet.scm    (revision 26685)
 +++ tokyocabinet.scm    (working copy)
 @@ -431,7 +431,7 @@
  ;; negative max for no limit
  (define (tc-bdb-fwm-keys bdb prefix max)
    (let ((tc-list
 -         (make-tc-list (%tc-bdb-fwmkeys (string-length prefix) bdb prefix
 max))))
 +         (make-tc-list (%tc-bdb-fwmkeys bdb prefix (string-length prefix)
 max))))
      (and (tc-list-ptr tc-list)
           tc-list)))
 }}}

-- 
Ticket URL: <http://bugs.call-cc.org/ticket/832>
Chicken Scheme <http://www.call-with-current-continuation.org/>
Chicken Scheme is a compiler for the Scheme programming language.