haxala1r/olisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added def, changed naming, and added if expressions

Browse Source
This commit is contained in:
Emin Arslan
2025-10-16 17:15:04 +03:00
committed by Emin Arslan
parent fb52fb03b6
commit 8273baecf1
1 changed files with 23 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
lib/eval.ml
View File

@@ -98,7 +98,16 @@ and (* This only creates a *local* binding, contained to the body given. *)
env_set_local e s v; env_set_local e s v;
eval_body e body eval_body e body
| _ -> invalid_arg "invalid argument to bind-local" | _ -> invalid_arg "invalid argument to bind-local"
and lisp_if env = function
| LCons (cond, LCons (if_true, LNil)) ->
(match eval_one env cond with
| LNil -> LNil
| _ -> eval_one env if_true)
| LCons (cond, LCons (if_true, LCons (if_false, LNil))) ->
(match eval_one env cond with
| LNil -> eval_one env if_false
| _ -> eval_one env if_true)
| _ -> invalid_arg "invalid argument list passed to if!"
let eval_all env vs = let eval_all env vs =
let ev v = eval_one env v in let ev v = eval_one env v in
@@ -111,19 +120,25 @@ let () = add_builtin "cdr" cdr
let () = add_builtin "cons" cons let () = add_builtin "cons" cons
let () = add_builtin "bind-symbol" bind_symbol let () = add_builtin "bind-symbol" bind_symbol
let () = add_builtin "list" lisp_list let () = add_builtin "list" lisp_list
let () = add_special "lambda" lambda let () = add_special "fn" lambda
let () = add_special "lambda-macro" lambda_macro let () = add_special "fn-macro" lambda_macro
let () = add_special "let-one" bind_local let () = add_special "let-one" bind_local
let () = add_special "quote" (fun _ -> function let () = add_special "quote" (fun _ -> function
| LCons (x, LNil) -> x | LCons (x, LNil) -> x
| _ -> invalid_arg "hmm") | _ -> invalid_arg "hmm")
let () = add_special "if" lisp_if
(*let () = add_builtin "print" lisp_prin *)
(* I know this looks insane. please trust me. *) (* I know this looks insane. please trust me. *)
let _ = eval_all default_env (Read.parse_str " let _ = eval_all default_env (Read.parse_str "
(bind-symbol 'defun (bind-symbol 'defn
(lambda-macro (name lm . body) (fn-macro (name lm . body)
(list 'bind-symbol (list 'quote name) (cons 'lambda (cons lm body))))) (list 'bind-symbol (list 'quote name) (cons 'fn (cons lm body)))))
(bind-symbol 'defmacro (bind-symbol 'defmacro
(lambda-macro (name lm . body) (fn-macro (name lm . body)
(list 'bind-symbol (list 'quote name) (cons 'lambda-macro (cons lm body)))))") (list 'bind-symbol (list 'quote name) (cons 'fn-macro (cons lm body)))))
(defmacro def
(var val)
(list 'bind-symbol (list 'quote var) val))
()")