irc.messages: use >tuple
parent
ccf17e50d2
commit
f936f5f54f
extra/irc/messages
2
Makefile
2
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
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue