irc.messages: use >tuple

2008-09-03 23:56:58 -03:00 · 2008-09-03 23:56:58 -03:00 · f936f5f54f
parent ccf17e50d2
commit f936f5f54f
2 changed files with 2 additions and 2 deletions
--- a/2
+++ b/2
@ -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
--- 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 ;