base: Fix bug in `while'.

Did I ever use this?

diff --git a/mdw-base.lisp b/mdw-base.lisp
index 787255b386f4c4c2ba32ef6c1604c040f4152fce..72b5b06c82f4a3af3d7565a3f385847643405199 100644 (file)
--- a/mdw-base.lisp
+++ b/mdw-base.lisp
@@ -149,7 +149,7 @@ (defmacro nlet (name binds &body body)
 (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))
 
 ;;;--------------------------------------------------------------------------