From 04c0a8d2fceae628099673e62527fc48e2afd7e7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 15 May 2017 22:17:29 -0400
Subject: - Defined the dummy-cursor (to be used anywhere needed).

---
 stdlib/source/lux.lux | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'stdlib')

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index bcf620c8f..737c38fd3 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -688,16 +688,17 @@
          default-def-meta-exported))
 
 ## Base functions & macros
-(_lux_def _cursor
+(_lux_def dummy-cursor
   (_lux_: Cursor ["" +0 +0])
-  #Nil)
+  (#Cons [["lux" "export?"] (#BoolA true)]
+         #Nil))
 
 (_lux_def _meta
   (_lux_: (#Function (#App Code'
                            (#App Meta Cursor))
                      Code)
     (_lux_function _ data
-      [_cursor data]))
+      [dummy-cursor data]))
   #Nil)
 
 (_lux_def return
@@ -3312,7 +3313,7 @@
           (default 20 #;None) => 20"}
   (case tokens
     (^ (list else maybe))
-    (let [g!temp (: Code [_cursor (#;Symbol ["" ""])])
+    (let [g!temp (: Code [dummy-cursor (#;Symbol ["" ""])])
           code (` (case (~ maybe)
                     (#;Some (~ g!temp))
                     (~ g!temp)
-- 
cgit v1.2.3