Work transfer from laptop

2019-04-21 15:58:23 +02:00
parent 3277e50164
commit 8429c495cb
4 changed files with 15 additions and 12 deletions
@@ -1,5 +1,5 @@
 (define-syntax when (condition :rest body)
-  "alsdkjalsk djalksdj alksjd lakjd"
+  "Doc String for 'when'"
  `(if ,condition ,(pair prog body) nil))

 (define-syntax unless (condition :rest body)
@@ -238,4 +238,4 @@ las argument."
  (eval (pair printf-quoted (extend (list :@sep (eval sep) :@end (eval end)) args))))

 (define-syntax pe (expr)
-  `(printf ,expr "evaluates to" (eval ,expr)))
+  `(printf ',expr "evaluates to" ,(eval expr)))