From ca238f9c89d3156842b0a3d5fe24a5d69b2eedb0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 6 Apr 2018 08:32:41 -0400
Subject: - Adapted new-luxc's code to latest stdlib changes.

---
 new-luxc/source/luxc/lang/extension.lux | 27 ++++++++++++++++-----------
 1 file changed, 16 insertions(+), 11 deletions(-)

(limited to 'new-luxc/source/luxc/lang/extension.lux')

diff --git a/new-luxc/source/luxc/lang/extension.lux b/new-luxc/source/luxc/lang/extension.lux
index c5e6a8e25..e8121b9b6 100644
--- a/new-luxc/source/luxc/lang/extension.lux
+++ b/new-luxc/source/luxc/lang/extension.lux
@@ -10,15 +10,20 @@
   (// ["la" analysis]
       ["ls" synthesis]))
 
-(exception: #export Unknown-Analysis)
-(exception: #export Unknown-Synthesis)
-(exception: #export Unknown-Translation)
-(exception: #export Unknown-Statement)
-
-(exception: #export Cannot-Define-Analysis-More-Than-Once)
-(exception: #export Cannot-Define-Synthesis-More-Than-Once)
-(exception: #export Cannot-Define-Translation-More-Than-Once)
-(exception: #export Cannot-Define-Statement-More-Than-Once)
+(do-template [<name>]
+  [(exception: #export (<name> {message Text})
+     message)]
+
+  [Unknown-Analysis]
+  [Unknown-Synthesis]
+  [Unknown-Translation]
+  [Unknown-Statement]
+
+  [Cannot-Define-Analysis-More-Than-Once]
+  [Cannot-Define-Synthesis-More-Than-Once]
+  [Cannot-Define-Translation-More-Than-Once]
+  [Cannot-Define-Statement-More-Than-Once]
+  )
 
 (type: #export Analysis
   (-> (-> Code (Meta Code))
@@ -51,13 +56,13 @@
 
 (def: get
   (Meta Extensions)
-  (function [compiler]
+  (function (_ compiler)
     (#e.Success [compiler
                  (|> compiler (get@ #.extensions) (:! Extensions))])))
 
 (def: (set extensions)
   (-> Extensions (Meta Unit))
-  (function [compiler]
+  (function (_ compiler)
     (#e.Success [(set@ #.extensions (:! Void extensions) compiler)
                  []])))
 
-- 
cgit v1.2.3