From 2d5fc4a2029d33d1e32f434b9334a87cf705645c Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Fri, 28 Dec 2018 22:36:26 +0000 Subject: [PATCH] Upversioned, README updated --- lisp/defun.lisp | 8 +++++--- src/version.h | 2 +- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/defun.lisp b/lisp/defun.lisp index e86df35..cec893b 100644 --- a/lisp/defun.lisp +++ b/lisp/defun.lisp @@ -1,10 +1,12 @@ -;; Because I don't (yet) have syntax for varargs, the body must be passed -;; to defun as a list of sexprs. +(set! list (lambda l l)) + +(set! symbolp (lambda (x) (equal (type x) "SYMB"))) + (set! defun! (nlambda form (cond ((symbolp (car form)) - (set (car form) (apply lambda (cdr form)))) + (set (car form) (apply 'lambda (cdr form)))) (t nil)))) (defun! square (x) (* x x)) diff --git a/src/version.h b/src/version.h index eb9d34e..96fb98e 100644 --- a/src/version.h +++ b/src/version.h @@ -8,4 +8,4 @@ * Licensed under GPL version 2.0, or, at your option, any later version. */ -#define VERSION "0.0.3" +#define VERSION "0.0.4"