[Chicken-janitors] #676: bug in dict egg

[Chicken Trac]

#676: bug in dict egg
------------------------+---------------------------------------------------
 Reporter:  felix       |       Owner:  certainty
     Type:  defect      |      Status:  new      
 Priority:  major       |   Milestone:           
Component:  extensions  |     Version:  4.7.x    
 Keywords:  dict        |  
------------------------+---------------------------------------------------
 There seems to be a typo in dict.scm:

 {{
  (define (parse-status-151 input)
     (let ((ws (string-index input #\space)))
       (unless ws (complain "Malformed status 151 response. Expected
 `word`" input))
       (let ((word (string-trim-both (string-take input ws) #\"))
             (ws2 (string-index input #\space (+ ws 1))))
         ;;      vv  should be ws2?
         (unless ws (complain "Malformed status 151 response. Expected
 `databasename`"  input))
         (let ((db (string-trim-both (string-take (string-drop input (+ ws
 1)) (- ws2 (+ 1 ws))) #\"\
 ))
               (descr (string-trim-both (string-trim-both (string-drop
 input (+ 1 ws2)) #\space) #\"\
 )))
           (list word db descr)))))
 }}

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