infix: Remove redundant progn in loop expander

diff --git a/infix.lisp b/infix.lisp
index 73fc3391433f043b88c9761aa51c0b980cf8788f..93ec028076b4623908680e02fde051ae90d1ec38 100644 (file)
--- a/infix.lisp
+++ b/infix.lisp
@@ -606,7 +606,7 @@ (defopfunc unless operand
 
 (defopfunc loop operand
   (get-token)
 
 (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)
 
 (defopfunc multiple-value-bind operand
   (get-token)