diff options
| author | Eduardo Julian | 2017-07-02 15:52:36 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-07-02 15:52:36 -0400 |
| commit | c0acd75d41ed0e927ec318d4b12c0ec4f5f2e1d3 (patch) | |
| tree | 2dce468eaee847cfb6ab51cd21b7bebffb3b2478 /new-luxc/source/luxc/module/descriptor/common.lux | |
| parent | 38d5f05977c54770195129df5ede2c91be4a32af (diff) | |
- Adjusted compiler to the new lack of Char type.
- WIP: PM/case synthesis.
Diffstat (limited to 'new-luxc/source/luxc/module/descriptor/common.lux')
| -rw-r--r-- | new-luxc/source/luxc/module/descriptor/common.lux | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/new-luxc/source/luxc/module/descriptor/common.lux b/new-luxc/source/luxc/module/descriptor/common.lux index 60a313115..aac438a6f 100644 --- a/new-luxc/source/luxc/module/descriptor/common.lux +++ b/new-luxc/source/luxc/module/descriptor/common.lux @@ -3,17 +3,16 @@ (lux (data [text] (text format ["l" lexer "l/" Monad<Lexer>]) - [char] (coll [list "L/" Functor<List>])))) (type: #export Signal Text) (do-template [<name> <code>] - [(def: #export <name> Signal (|> <code> char;char char;as-text))] + [(def: #export <name> Signal <code>)] - [cons-signal +5] - [nil-signal +6] - [stop-signal +7] + [cons-signal "\u0005"] + [nil-signal "\u0006"] + [stop-signal "\u0007"] ) (do-template [<name> <code>] |