tisp

commit 3ccc398c9a349139c16f6de7d2ef930119a2622f
parent aef5b6d62dee16c203eabb68459e278c26bd5744
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Wed, 24 Mar 2021 20:05:54 -0700

Replace Func uses with @

Diffstat:
tib/core.tsp
 | 
8
+++-----

1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/tib/core.tsp b/tib/core.tsp
@@ -110,8 +110,7 @@
   (list (list* 'Func ()
                (append
                  (map
-                   (Func (x)
-                     (list* 'def (car x) (cdr x)))
+                   @(list* 'def (car it) (cdr it))
                    vars)
                  body))))
 
@@ -260,8 +259,7 @@
 
 ; TODO many args
 (def (apply proc args)
-  (eval (map (Func (x) ; prevent args from being evaluated twice
-               (list 'quote x))
+  (eval (map @(list 'quote it) ; prevent proc and args from being evaluated twice
              (cons proc args))))
 
 ; TODO many lsts for proc w/ multi arguments
@@ -317,7 +315,7 @@
         (else (memp proc (cdr lst)))))
 
 (def (member mem lst)
-  (memp (Func (x) (= mem x)) lst))
+  (memp @(= mem it) lst))
 
 ; define English list element accessors
 (def rest cdr) ; TODO first and rest are generics for list, vec, str types