diff options
| author | Eduardo Julian | 2018-05-06 02:01:02 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-05-06 02:01:02 -0400 |
| commit | f5a6fe62a612c0727063fa9e530d53ddda5fcd82 (patch) | |
| tree | 4c129edee0d68e00e72dd792311ae0c37d71d1dd /luxc/src/lux/analyser | |
| parent | 3f5cb79407289996b107c65ccd14451e4fbd9679 (diff) | |
- Removed "lux text upper" and "lux text lower" procedures.
Diffstat (limited to 'luxc/src/lux/analyser')
| -rw-r--r-- | luxc/src/lux/analyser/proc/common.clj | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/luxc/src/lux/analyser/proc/common.clj b/luxc/src/lux/analyser/proc/common.clj index 94eadb72c..80271f9e7 100644 --- a/luxc/src/lux/analyser/proc/common.clj +++ b/luxc/src/lux/analyser/proc/common.clj @@ -110,21 +110,6 @@ ^:private analyse-text-hash "hash" ) -(do-template [<name> <proc>] - (defn <name> [analyse exo-type ?values] - (|do [:let [(&/$Cons text (&/$Nil)) ?values] - =text (&&/analyse-1 analyse &type/Text text) - _ (&type/check exo-type &type/Text) - _cursor &/cursor] - (return (&/|list (&&/|meta exo-type _cursor - (&&/$proc (&/T ["text" <proc>]) - (&/|list =text) - (&/|list))))))) - - ^:private analyse-text-upper "upper" - ^:private analyse-text-lower "lower" - ) - (defn ^:private analyse-text-char [analyse exo-type ?values] (|do [:let [(&/$Cons text (&/$Cons idx (&/$Nil))) ?values] =text (&&/analyse-1 analyse &type/Text text) @@ -511,8 +496,6 @@ "lux text hash" (analyse-text-hash analyse exo-type ?values) "lux text replace-all" (analyse-text-replace-all analyse exo-type ?values) "lux text char" (analyse-text-char analyse exo-type ?values) - "lux text upper" (analyse-text-upper analyse exo-type ?values) - "lux text lower" (analyse-text-lower analyse exo-type ?values) "lux text contains?" (analyse-text-contains? analyse exo-type ?values) "lux bit count" (analyse-bit-count analyse exo-type ?values) |