bug in dict egg

[felix winkelmann]

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)))))

[certainty]

Thanks felix. I've fixed it. The new version 2.7 is available.