aboutsummaryrefslogtreecommitdiff
path: root/luxc
diff options
context:
space:
mode:
authorEduardo Julian2019-04-04 20:40:50 -0400
committerEduardo Julian2019-04-04 20:40:50 -0400
commit2914f38f7c3795a63f555409361bc1b317e871a9 (patch)
tree3ffe997617388f4abfb52558ab48102b9fafc2e6 /luxc
parentcc16e4ba982a9a2b228c7b40d927f539c9e1a5c8 (diff)
Forgot "lux text char".
Diffstat (limited to '')
-rw-r--r--luxc/src/lux/analyser/proc/common.clj4
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