From ede65518591b9af79cb50b18dc83419625d27782 Mon Sep 17 00:00:00 2001 From: Taylan Kammer Date: Wed, 24 Jun 2026 14:34:37 +0200 Subject: Various code cleanup. --- _tests/eval.scm | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 _tests/eval.scm (limited to '_tests/eval.scm') diff --git a/_tests/eval.scm b/_tests/eval.scm new file mode 100644 index 0000000..accd858 --- /dev/null +++ b/_tests/eval.scm @@ -0,0 +1,25 @@ + + + +(define (eval form module) + (cond + ((const? form) form) + ((id? form) (lookup form module)) + ((list? form) + (let ((len (list-len form)) + (ptr (list-ptr form))) + (eval-list ptr len module))))) + +(define (eval-list ptr len module) + (let ((first ptr[0])) + (cond + ((funcall? first) + (let ((fun-ptr (funcall-ptr first)) + (argv (eval-args ptr len module))) + (funcall fun-ptr argv))) + (())))) + + + + + -- cgit v1.2.3