redefine define to return the original value

devyn · Aug 10, 2023 · db03f50 · db03f50
1 parent 7dcc83e
commit db03f50
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/stage2/00-early.lsp b/stage2/00-early.lsp
@@ -1,4 +1,4 @@
-; (define <key> <value>)
+; (define <key> <value>) = ?
 (call-native define$
   (ref (quote define))
   (ref (proc args scope
@@ -42,6 +42,14 @@
     (eval scope (car args))
     (eval scope (cadr args))))))
 
+; redefine define to return the original value
+(define define (proc args scope
+  (seq1
+    (call-native define$
+      (ref (car args))
+      (ref (eval scope (cadr args))))
+    (eval scope (car args)))))
+
 ; (print <object>) = <object>
 (define print (proc args scope
   (deref (car