diff options
| author | Eduardo Julian | 2017-05-15 22:17:29 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-05-15 22:17:29 -0400 |
| commit | 04c0a8d2fceae628099673e62527fc48e2afd7e7 (patch) | |
| tree | 94140f572da5537935497897a9769d4cda257b44 /stdlib/source | |
| parent | 8e5fb9f49396206982d27c108a4d12dcdd224a3b (diff) | |
- Defined the dummy-cursor (to be used anywhere needed).
Diffstat (limited to '')
| -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) |