tisp

tiny lisp
git clone git://edryd.org/tisp
Log | Files | Refs | LICENSE

commit e6ad750f215fa48f4aa0ae09fc41d962683bd580
parent 6ef0482a0e4ed7c1906ad9b4a86175817289c0bf
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Tue,  8 Oct 2019 23:50:02 -0700

Use nil symbol instead of equivalent empty list

Diffstat:
tibs/lib.tsp | 8++++----
1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tibs/lib.tsp b/tibs/lib.tsp @@ -71,10 +71,10 @@ ;;; Logic (define (not x) - (if x () t)) + (if x nil t)) (define and ; Use a macro so arguments aren't evaluated all at once (macro (a b) - (list 'if a b ()))) + (list 'if a b nil))) (define nand (macro (a b) (list 'not (list 'and a b)))) @@ -127,7 +127,7 @@ (else (cons (car l1) (append (cdr l1) l2))))) (define (assoc key table) - (cond ((nil? table) ()) + (cond ((nil? table) nil) ((= key (caar table)) (car table)) (else (assoc key (cdr table))))) @@ -138,7 +138,7 @@ (zip (cdr x) (cdr y)))))) (define (member? mem lst) - (cond ((nil? lst) ()) + (cond ((nil? lst) nil) ((= mem (car lst)) t) (else (member? mem (cdr lst)))))