base: Fix bug in `while'.

[lisp] / mdw-base.lisp

diff --git a/mdw-base.lisp b/mdw-base.lisp
index 787255b..72b5b06 100644 (file)
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -149,7 +149,7 @@ gensyms will be bound to the corresponding VALUE."
 (defmacro while (cond &body body)
   "If COND is false, evaluate to nil; otherwise evaluate BODY and try again."
   `(loop
-     (unless `cond (return))
+     (unless ,cond (return))
      ,@body))
 
 ;;;--------------------------------------------------------------------------