From 05c1e7c3367de14f38e81e9ecdc0a36904dbc13e Mon Sep 17 00:00:00 2001
Message-Id: <05c1e7c3367de14f38e81e9ecdc0a36904dbc13e.1746193137.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sat, 13 May 2006 01:08:53 +0100
Subject: [PATCH] infix: Remove redundant progn in loop expander
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

---
 infix.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
[mdw]