From daff89b83c4cbcdb3f0b068e7b4189bdc3adeb72 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 21 Apr 2019 19:44:23 -0400
Subject: Added short names for special characters.

---
 stdlib/source/lux/data/text.lux | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

(limited to 'stdlib')

diff --git a/stdlib/source/lux/data/text.lux b/stdlib/source/lux/data/text.lux
index 42b8170b9..df3dad17e 100644
--- a/stdlib/source/lux/data/text.lux
+++ b/stdlib/source/lux/data/text.lux
@@ -25,18 +25,19 @@
   (-> Char Text)
   (|>> (:coerce Int) "lux int char"))
 
-(template [<code> <name>]
-  [(def: #export <name> (from-code <code>))]
-
-  [00 null]
-  [07 alarm]
-  [08 back-space]
-  [09 tab]
-  [10 new-line]
-  [11 vertical-tab]
-  [12 form-feed]
-  [13 carriage-return]
-  [34 double-quote]
+(template [<code> <short> <long>]
+  [(def: #export <long> (from-code <code>))
+   (def: #export <short> <long>)]
+
+  [00 \0 null]
+  [07 \a alarm]
+  [08 \b back-space]
+  [09 \t tab]
+  [10 \n new-line]
+  [11 \v vertical-tab]
+  [12 \f form-feed]
+  [13 \r carriage-return]
+  [34 \' double-quote]
   )
 
 (def: #export (size x)
-- 
cgit v1.2.3