correction

main
Matthew Butterick 7 years ago
parent 851fbaaa70
commit a31e5b0d79

@ -34,7 +34,7 @@
(λ (kws kw-args . rest)
(keyword-apply core:hyphenate kws kw-args word-cache pattern-cache rest)))))
(define unhyphenate
(define (make-unhyphenate-function)
(make-keyword-procedure
(λ (kws kw-args . rest)
(keyword-apply core:unhyphenate kws kw-args rest))))
@ -57,4 +57,6 @@
(define+provide+safe hyphenate
hyphenate/c
(make-hyphenate-function PATTERNS-ID EXCEPTIONS-ID))
(provide+safe [unhyphenate unhyphenate/c])))]))
(define+provide+safe unhyphenate
unhyphenate/c
(make-unhyphenate-function))))]))
Loading…
Cancel
Save