Opened 13 years ago

Closed 13 years ago

#676 closed defect (fixed)

bug in dict egg

Reported by: felix winkelmann Owned by: certainty
Priority: major Milestone:
Component: extensions Version: 4.7.x
Keywords: dict Cc:
Estimated difficulty:

Description (last modified by 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)))))

Change History (2)

comment:1 Changed 13 years ago by felix winkelmann

Description: modified (diff)

comment:2 Changed 13 years ago by certainty

Resolution: fixed
Status: newclosed

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

Note: See TracTickets for help on using tickets.