aboutsummaryrefslogtreecommitdiff
path: root/stdlib
diff options
context:
space:
mode:
authorEduardo Julian2017-05-15 22:17:29 -0400
committerEduardo Julian2017-05-15 22:17:29 -0400
commit04c0a8d2fceae628099673e62527fc48e2afd7e7 (patch)
tree94140f572da5537935497897a9769d4cda257b44 /stdlib
parent8e5fb9f49396206982d27c108a4d12dcdd224a3b (diff)
- Defined the dummy-cursor (to be used anywhere needed).
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/source/lux.lux9
1 files changed, 5 insertions, 4 deletions
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)