infix: Remove redundant progn in loop expander

[lisp] / infix.lisp

diff --git a/infix.lisp b/infix.lisp
index 73fc339..93ec028 100644 (file)
--- a/infix.lisp
+++ b/infix.lisp
@@ -606,7 +606,7 @@
 
 (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)