tisp

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

commit 99d76c4b1c33899c5de4e2aaad12d602381dcd21
parent 2e1a393a6f75838797a9ab12a29edea7a91821f2
Author: Ed van Bruggen <edvb@uw.edu>
Date:   Sun, 25 Oct 2020 16:31:14 -0700

defmacro error on incorrect format

Diffstat:
tib/core.tsp | 8+++++++-
1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/tib/core.tsp b/tib/core.tsp @@ -1,9 +1,15 @@ +;;; core.tsp (def (list . lst) lst) (def quit "type (quit) or press CTRL-D to exit REPL") (def defmacro (macro (args . body) - (list 'def (car args) (list 'macro (cdr args) . body)))) + (cond + ((pair? args) + (list 'def (car args) (list 'macro (cdr args) . body))) + (else + (error 'defmacro "expected macro name and argument List, recieved " + (typeof args)))))) ;;; CXR