diff options
| -rw-r--r-- | stdlib/source/lux.lux | 9 |
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) |