aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/module/descriptor
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/module/descriptor')
-rw-r--r--new-luxc/source/luxc/module/descriptor/annotation.lux3
-rw-r--r--new-luxc/source/luxc/module/descriptor/common.lux9
-rw-r--r--new-luxc/source/luxc/module/descriptor/type.lux1
3 files changed, 4 insertions, 9 deletions
diff --git a/new-luxc/source/luxc/module/descriptor/annotation.lux b/new-luxc/source/luxc/module/descriptor/annotation.lux
index d5e0d8000..ed5419974 100644
--- a/new-luxc/source/luxc/module/descriptor/annotation.lux
+++ b/new-luxc/source/luxc/module/descriptor/annotation.lux
@@ -5,7 +5,6 @@
(data [text]
(text format
["l" lexer "l/" Monad<Lexer>])
- [char]
[number]
error
(coll [list "L/" Functor<List>])))
@@ -23,7 +22,6 @@
[int-signal "I"]
[deg-signal "D"]
[real-signal "R"]
- [char-signal "C"]
[text-signal "T"]
[list-signal "%"]
[dict-signal "#"]
@@ -54,7 +52,6 @@
[#;IntA int-signal %i]
[#;DegA deg-signal %d]
[#;RealA real-signal %r]
- [#;CharA char-signal %c]
[#;TextA text-signal %t]
[#;IdentA ident-signal %ident]
[#;ListA list-signal (&;encode-list encode-ann-value)]
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>]
diff --git a/new-luxc/source/luxc/module/descriptor/type.lux b/new-luxc/source/luxc/module/descriptor/type.lux
index dd11a163f..bcf44e5a2 100644
--- a/new-luxc/source/luxc/module/descriptor/type.lux
+++ b/new-luxc/source/luxc/module/descriptor/type.lux
@@ -5,7 +5,6 @@
(data [text]
(text format
["l" lexer "l/" Monad<Lexer>])
- [char]
[number]
["R" result]
(coll [list "L/" Functor<List>]))