adds def

desktop/sources/scripts/lisp.js

@@ -34,6 +34,10 @@ function Lisp (input, lib) {
 
       return interpret(input[2], letContext)
     },
+    def: function (input, context) {
+      context.scope[input[1].value] = input[2].value
+      return input[2]
+    },
     lambda: function (input, context) {
       return function () {
         const lambdaArguments = arguments

examples/benchmark.lisp

@@ -14,7 +14,7 @@
   (test "clamp" (clamp 12 4 8) 8)
   (test "step" (step 12 10) 10)
   (test "PI" TWO_PI (mul 2 PI))
-  
+
 ; Logic
 
   (test "lt" (lt 3 4) true)
@@ -37,4 +37,9 @@
   (test "range simple" (range 0 4) (0 1 2 3 4))
   (test "range with step" (range 0 4 2) (0 2 4))
   (test "range with negative step" (range 0 -4 -1) (0 -1 -2 -3 -4))
+
+; Scope
+
+  (def aaa 123)
+  (test "def" aaa 123)
 )

examples/include.lisp

@@ -0,0 +1,3 @@
+(
+  (def value 12)
+)

examples/run.lisp

@@ -0,0 +1 @@
+(run "./include.lisp")