Fix typo

Julien LepillerThu Jun 04 00:50:58+0200 2020

00193ec

Fix typo

modules/nani/wadoku/xml.scm

413413 
      (cons (string-append string1 string2) seed))))
414414 
415415 
(define (xml->results port frq)
416-
  (let ((resuts (filter result? ((create-parser frq) port '()))))
416+
  (let ((results (filter result? ((create-parser frq) port '()))))
417417 
    (sort results (lambda (a b) (> (result-points a) (result-points b))))))