diff --git a/hyphenate/hyphenate/private/bootstrap.rkt b/hyphenate/hyphenate/private/bootstrap.rkt index 610ca6d6..846e2b99 100644 --- a/hyphenate/hyphenate/private/bootstrap.rkt +++ b/hyphenate/hyphenate/private/bootstrap.rkt @@ -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])))])) \ No newline at end of file + (define+provide+safe unhyphenate + unhyphenate/c + (make-unhyphenate-function))))])) \ No newline at end of file