From a31e5b0d79d6ce99f254e1ca92d068394427d958 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 7 Aug 2017 16:04:54 -0700 Subject: [PATCH] correction --- hyphenate/hyphenate/private/bootstrap.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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