From 3439602c2b356eaef3359b6496a0237f1af55e33 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 26 Oct 2017 21:41:41 -0400
Subject: - Added a new piece of compiler state, just for storing the
 current-module.

---
 new-luxc/source/luxc/base.lux | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

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

diff --git a/new-luxc/source/luxc/base.lux b/new-luxc/source/luxc/base.lux
index 28b5437e9..bac16fd79 100644
--- a/new-luxc/source/luxc/base.lux
+++ b/new-luxc/source/luxc/base.lux
@@ -145,7 +145,7 @@
 
 (def: fresh-scope
   Scope
-  {#;name     (list "lux")
+  {#;name     (list)
    #;inner    +0
    #;locals   fresh-bindings
    #;captured fresh-bindings})
@@ -166,6 +166,19 @@
       (#e;Error error)
       (#e;Error error))))
 
+(def: #export (with-current-module name action)
+  (All [a] (-> Text (Meta a) (Meta a)))
+  (function [compiler]
+    (case (action (set@ #;current-module (#;Some name) compiler))
+      (#e;Success [compiler' output])
+      (#e;Success [(set@ #;current-module
+                         (get@ #;current-module compiler)
+                         compiler')
+                   output])
+
+      (#e;Error error)
+      (#e;Error error))))
+
 (def: #export (with-cursor cursor action)
   (All [a] (-> Cursor (Meta a) (Meta a)))
   (if (text/= "" (product;left cursor))
-- 
cgit v1.2.3