diff options
author | Eduardo Julian | 2015-08-10 23:55:56 -0400 |
---|---|---|
committer | Eduardo Julian | 2015-08-10 23:55:56 -0400 |
commit | 72a9ed29ca5518ca98658873f4616d5637db80af (patch) | |
tree | 4c70ff59d5101e9aa5deacaedd8a34a8b0afd442 /source/lux.lux | |
parent | 4134c811399abfce64b54a821e427d2b153f3e57 (diff) |
- Changing tags so they're actually indices (part 2).
- Fixed some bugs.
- Now pattern-matching on variants works with indices, rather than text tags.
Diffstat (limited to '')
-rw-r--r-- | source/lux.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/source/lux.lux b/source/lux.lux index d023406f8..91e00d317 100644 --- a/source/lux.lux +++ b/source/lux.lux @@ -563,8 +563,8 @@ #Nil])) _ - (fail "Wrong syntax for def") - )))) + (fail "Wrong syntax for def")) + ))) (_lux_declare-macro def'') (def'' (defmacro tokens) @@ -680,13 +680,13 @@ #Nil init - (#Cons [x xs']) + (#Cons x xs') (foldL f (f init x) xs'))) (def'' (reverse list) (All' [a] (->' ($' List (B' a)) ($' List (B' a)))) - (foldL (lambda'' [tail head] (#Cons [head tail])) + (foldL (lambda'' [tail head] (#Cons head tail)) #Nil list)) |