suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Typo in error message

Browse Source
This commit is contained in:
Eli Barzilay 2010-06-16 01:35:27 -04:00
parent a4726678ff
commit 00bca21339
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/meta/web/common/layout.rkt
View File

@ -23,7 +23,7 @@
(let ([f (and id (symbol->string (force id)))]) (let ([f (and id (symbol->string (force id)))])
(cond [(and f (regexp-match #rx"[.]" f)) f] (cond [(and f (regexp-match #rx"[.]" f)) f]
[(and f sfx) (string-append f (regexp-replace #rx"^[.]?" sfx "."))] [(and f sfx) (string-append f (regexp-replace #rx"^[.]?" sfx "."))]
[else (error 'who "missing `#:file', or `#:id'~a" [else (error who "missing `#:file', or `#:id'~a"
(if sfx "" " and `#:suffix'"))]))) (if sfx "" " and `#:suffix'"))])))
;; The following are not intended for direct use, see ;; The following are not intended for direct use, see