diff --git a/hyphenate/exceptions.rkt b/hyphenate/exceptions.rkt new file mode 100644 index 00000000..6a7e6655 --- /dev/null +++ b/hyphenate/exceptions.rkt @@ -0,0 +1,7 @@ +#lang racket/base + +(provide default-exceptions) + +; Knuth and Liang's original exception patterns from classic TeX. +; In the public domain. +(define default-exceptions (map symbol->string '(as-so-ciate as-so-ciates dec-li-na-tion oblig-a-tory phil-an-thropic present presents project projects reci-procity re-cog-ni-zance ref-or-ma-tion ret-ri-bu-tion ta-ble))) diff --git a/hyphenate/hyphenation-patterns.rkt b/hyphenate/patterns.rkt similarity index 98% rename from hyphenate/hyphenation-patterns.rkt rename to hyphenate/patterns.rkt index ed2b0964..afc6e509 100644 --- a/hyphenate/hyphenation-patterns.rkt +++ b/hyphenate/patterns.rkt @@ -1,10 +1,6 @@ #lang racket/base -(provide default-exceptions default-patterns) - -; Knuth and Liang's original exception patterns from classic TeX. -; In the public domain. -(define default-exceptions (map symbol->string '(as-so-ciate as-so-ciates dec-li-na-tion oblig-a-tory phil-an-thropic present presents project projects reci-procity re-cog-ni-zance ref-or-ma-tion ret-ri-bu-tion ta-ble))) +(provide default-patterns) (define default-patterns ; Knuth and Liang's original hyphenation patterns from classic TeX.