diff options
| author | Eduardo Julian | 2019-04-04 20:40:50 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-04-04 20:40:50 -0400 |
| commit | 2914f38f7c3795a63f555409361bc1b317e871a9 (patch) | |
| tree | 3ffe997617388f4abfb52558ab48102b9fafc2e6 /luxc/src | |
| parent | cc16e4ba982a9a2b228c7b40d927f539c9e1a5c8 (diff) | |
Forgot "lux text char".
Diffstat (limited to 'luxc/src')
| -rw-r--r-- | luxc/src/lux/analyser/proc/common.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/luxc/src/lux/analyser/proc/common.clj b/luxc/src/lux/analyser/proc/common.clj index 8f51521d8..cbe741a34 100644 --- a/luxc/src/lux/analyser/proc/common.clj +++ b/luxc/src/lux/analyser/proc/common.clj @@ -91,9 +91,9 @@ ) (defn- analyse-text-char [analyse exo-type ?values] - (|do [:let [(&/$Cons text (&/$Cons idx (&/$Nil))) ?values] - =text (&&/analyse-1 analyse &type/Text text) + (|do [:let [(&/$Cons idx (&/$Cons text (&/$Nil))) ?values] =idx (&&/analyse-1 analyse &type/Nat idx) + =text (&&/analyse-1 analyse &type/Text text) _ (&type/check exo-type &type/Nat) _cursor &/cursor] (return (&/|list (&&/|meta exo-type _cursor |