From c0acd75d41ed0e927ec318d4b12c0ec4f5f2e1d3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 2 Jul 2017 15:52:36 -0400
Subject: - Adjusted compiler to the new lack of Char type. - WIP: PM/case
 synthesis.

---
 new-luxc/source/luxc/module/descriptor/annotation.lux | 3 ---
 new-luxc/source/luxc/module/descriptor/common.lux     | 9 ++++-----
 new-luxc/source/luxc/module/descriptor/type.lux       | 1 -
 3 files changed, 4 insertions(+), 9 deletions(-)

(limited to 'new-luxc/source/luxc/module')

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>]))
-- 
cgit v1.2.3