steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

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

2
extra/irc/messages/messages.factor
View File

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