From f936f5f54f90cfe042c5035fa71bfe8ef28428c7 Mon Sep 17 00:00:00 2001
From: Bruno Deferrari <utizoc@gmail.com>
Date: Wed, 3 Sep 2008 23:56:58 -0300
Subject: [PATCH] irc.messages: use >tuple

---
 Makefile                           | 2 +-
 extra/irc/messages/messages.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index 769aeacb8c..8831ed9c7e 100755
--- a/Makefile
+++ b/Makefile
@@ -13,7 +13,7 @@ CFLAGS = -Wall
 ifdef DEBUG
 	CFLAGS += -g
 else
-	CFLAGS += -O3 $(SITE_CFLAGS)
+	CFLAGS += -O3 -fno-forward-propagate $(SITE_CFLAGS)
 endif
 
 ifdef CONFIG
diff --git a/extra/irc/messages/messages.factor b/extra/irc/messages/messages.factor
index d3eca92f15..e68cf12d2d 100755
--- a/extra/irc/messages/messages.factor
+++ b/extra/irc/messages/messages.factor
@@ -127,4 +127,4 @@ M: sender-in-prefix irc-message-sender ( sender-in-prefix -- sender )
     } case
     [ [ tuple-slots ] [ parameters>> ] bi append ] dip
     [ all-slots over [ length ] bi@ min head >quotation ] keep
-    '[ @ , boa ] call ;
+    prefix >tuple ;