Added some standard functions

2025-10-30 23:42:10 +03:00
parent 1df6f3603c
commit 3d4e70b6a1
2 changed files with 28 additions and 4 deletions
--- a/lib/interpreterStdlib.ml
+++ b/lib/interpreterStdlib.ml
@@ -62,3 +62,8 @@ let lambda env = function
 let lambda_macro env = function
  | LCons (l, body) -> LUnnamedMacro (env, l, body)
  | _ -> invalid_arg "invalid args to lambda-macro"
+
+
+let lisp_not _ = function
+  | LCons (LNil, LNil) -> LSymbol "t"
+  | _ -> LNil