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/common.lux | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'new-luxc/source/luxc/module/descriptor/common.lux')

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