irc.messages: use >tuple
parent
ccf17e50d2
commit
f936f5f54f
2
Makefile
2
Makefile
|
@ -13,7 +13,7 @@ CFLAGS = -Wall
|
||||||
ifdef DEBUG
|
ifdef DEBUG
|
||||||
CFLAGS += -g
|
CFLAGS += -g
|
||||||
else
|
else
|
||||||
CFLAGS += -O3 $(SITE_CFLAGS)
|
CFLAGS += -O3 -fno-forward-propagate $(SITE_CFLAGS)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
ifdef CONFIG
|
ifdef CONFIG
|
||||||
|
|
|
@ -127,4 +127,4 @@ M: sender-in-prefix irc-message-sender ( sender-in-prefix -- sender )
|
||||||
} case
|
} case
|
||||||
[ [ tuple-slots ] [ parameters>> ] bi append ] dip
|
[ [ tuple-slots ] [ parameters>> ] bi append ] dip
|
||||||
[ all-slots over [ length ] bi@ min head >quotation ] keep
|
[ all-slots over [ length ] bi@ min head >quotation ] keep
|
||||||
'[ @ , boa ] call ;
|
prefix >tuple ;
|
||||||
|
|
Loading…
Reference in New Issue