From 0bc56fdc626ee601ca2c4ba0502f76e76d765fa0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 21 Oct 2017 00:38:55 -0400
Subject: - Updated new compiler to latest version of stdlib.

---
 new-luxc/source/luxc/module/descriptor/type.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/new-luxc/source/luxc/module/descriptor/type.lux b/new-luxc/source/luxc/module/descriptor/type.lux
index 6c5501e54..2f5b8667b 100644
--- a/new-luxc/source/luxc/module/descriptor/type.lux
+++ b/new-luxc/source/luxc/module/descriptor/type.lux
@@ -15,7 +15,7 @@
   [(def: <name> &;Signal <code>)]
 
   [type-signal        "T"]
-  [host-signal        "^"]
+  [primitive-signal   "^"]
   [void-signal        "0"]
   [unit-signal        "1"]
   [product-signal     "*"]
@@ -36,8 +36,8 @@
           (type/= Type type))
     type-signal
     (case type
-      (#;Host name params)
-      (format host-signal name &;stop-signal (&;encode-list encode-type params))
+      (#;Primitive name params)
+      (format primitive-signal name &;stop-signal (&;encode-list encode-type params))
 
       #;Void
       void-signal
@@ -115,11 +115,11 @@
                       [#;Var   var-signal])]
        ($_ l;either
            (do l;Monad<Lexer>
-             [_ (l;text host-signal)
+             [_ (l;text primitive-signal)
               name (l;many' (l;none-of &;stop-signal))
               _ (l;text &;stop-signal)
               params (&;decode-list type-decoder)]
-             (wrap (#;Host name params)))
+             (wrap (#;Primitive name params)))
            <simple>
            <combinators>
            <abstractions>
-- 
cgit v1.2.3