From 4f82ff41153df143d36cb8c1054e3415f3f21296 Mon Sep 17 00:00:00 2001 From: FelixBrendel Date: Sun, 21 Apr 2019 22:17:36 +0200 Subject: [PATCH] new define-syntax syntax --- bin/pre.slime | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/bin/pre.slime b/bin/pre.slime index f838b97..fe6b0c5 100644 --- a/bin/pre.slime +++ b/bin/pre.slime @@ -1,8 +1,8 @@ -(define-syntax when (condition :rest body) +(define-syntax (when condition :rest body) "Doc String for 'when'" `(if ,condition ,(pair prog body) nil)) -(define-syntax unless (condition :rest body) +(define-syntax (unless condition :rest body) `(if ,condition nil ,(pair prog body))) ;; (define-syntax defun (name arguments :rest body) @@ -116,11 +116,11 @@ the (rest) of the last element of the sequence." with (pair elem nil)." (extend seq (pair elem nil))) -(define-syntax extend! (seq elem) +(define-syntax (extend! seq elem) "test" `(mutate ,seq (extend ,seq ,elem))) -(define-syntax append! (seq elem) +(define-syntax (append! seq elem) `(mutate ,seq (append ,seq ,elem))) (define (length seq) @@ -237,5 +237,5 @@ las argument." (eval (pair printf-quoted (extend (list :@sep (eval sep) :@end (eval end)) args)))) -(define-syntax pe (expr) +(define-syntax (pe expr) `(printf ',expr "evaluates to" ,(eval expr)))