suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Fix transposition in error message (#215)

Browse Source
This commit is contained in:
Jens Axel Søgaard 2019-10-14 16:10:44 +02:00 committed by Ben Greenman
parent 97078b60ed
commit e44a5bb9f1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scribble-html-lib/scribble/html/xml.rkt
View File

@ -33,7 +33,7 @@
(let loop ([xs xs] [as '()]) (let loop ([xs xs] [as '()])
(define a (and (pair? xs) (attribute->symbol (car xs)))) (define a (and (pair? xs) (attribute->symbol (car xs))))
(cond [(not a) (values (reverse as) xs)] (cond [(not a) (values (reverse as) xs)]
[(null? (cdr xs)) (error 'attriubtes+body [(null? (cdr xs)) (error 'attributes+body
"missing attribute value for `~s:'" a)] "missing attribute value for `~s:'" a)]
[else (loop (cddr xs) (cons (cons a (cadr xs)) as))]))) [else (loop (cddr xs) (cons (cons a (cadr xs)) as))])))