irc.messages: use >tuple

db4
Bruno Deferrari 2008-09-03 23:56:58 -03:00
parent ccf17e50d2
commit f936f5f54f
2 changed files with 2 additions and 2 deletions
extra/irc/messages

View File

@ -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

View File

@ -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 ;