X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/1b35c11e81637c1fb06cab552c2ca91facb373a9..05c1e7c3367de14f38e81e9ecdc0a36904dbc13e:/infix.lisp

diff --git a/infix.lisp b/infix.lisp
index 73fc339..93ec028 100644
--- a/infix.lisp
+++ b/infix.lisp
@@ -606,7 +606,7 @@ (defopfunc unless operand
 
 (defopfunc loop operand
   (get-token)
-  (pushval `(loop ,@(progn (strip-progn (parse-infix 0))))))
+  (pushval `(loop ,@(strip-progn (parse-infix 0)))))
 
 (defopfunc multiple-value-bind operand
   (get-token)