diff options
| -rw-r--r-- | shell/data.limg | 10 | ||||
| -rw-r--r-- | shell/global.mu | 2 |
2 files changed, 11 insertions, 1 deletions
diff --git a/shell/data.limg b/shell/data.limg index fac0e683..c85dd050 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -5,6 +5,16 @@ (def . [(mac (def (name . params) . body) `(define ,name (fn ,params ,@body)))]) (do . [(mac (do . body) `((fn () ,@body)))]) + (list . [(def (list . args) args)]) + (len . [(def (len l) + (if (no l) + 0 + (+ 1 (len (cdr l)))))]) + (map1 . [(def (map1 f xs) + (if (no xs) + () + (cons (f (car xs)) + (map1 f (cdr xs)))))]) (let . [(mac (let var val . body) `((fn (,var) ,@body) ,val))]) (when . [(mac (when cond . body) diff --git a/shell/global.mu b/shell/global.mu index b4641c60..4a3456bd 100644 --- a/shell/global.mu +++ b/shell/global.mu @@ -19,7 +19,7 @@ fn initialize-globals _self: (addr global-table) { return } var data-ah/eax: (addr handle array global) <- get self, data - populate data-ah, 0x40 + populate data-ah, 0x80 initialize-primitives self } |