irc.messages: oops
parent
f936f5f54f
commit
7f588bbb84
|
@ -126,5 +126,5 @@ M: sender-in-prefix irc-message-sender ( sender-in-prefix -- sender )
|
||||||
[ drop unhandled ]
|
[ drop unhandled ]
|
||||||
} 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 ] keep
|
||||||
prefix >tuple ;
|
prefix >tuple ;
|
||||||
|
|
Loading…
Reference in New Issue