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

clean

master
Steve Ayerhart 2021-04-04 11:18:45 -04:00
parent 89f81d7b89
commit bd3da44d96
No known key found for this signature in database
GPG Key ID: 5C815FDF3A00B8BA
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
bonerbonerboner/services/mississippis/mississippis.factor
View File

@ -57,11 +57,11 @@ CONSTANT: min-mississippi-count 1
:: announce-nonstandard-mississippi ( terminal sip -- ) :: announce-nonstandard-mississippi ( terminal sip -- )
{ {
{ .3 [ ] } { .3 [ ] }
{ .1 [ announce-random-sip ] } { .1 [ announce-random-sip ] }
{ .075 [ announce-random-stupid-word ] } { .075 [ announce-random-stupid-word ] }
{ .025 [ terminal announce-fake-terminal ] } { .025 [ terminal announce-fake-terminal ] }
{ .5 [ sip announce-sip ] } { .5 [ sip announce-sip ] }
} casep ; } casep ;
: announce-nonstandard-mississippis ( terminal -- ) : announce-nonstandard-mississippis ( terminal -- )
@ -78,6 +78,3 @@ CONSTANT: min-mississippi-count 1
dup valid-mississippi-count? dup valid-mississippi-count?
[ announce-go! swap announce-mississippis ] [ announce-go! swap announce-mississippis ]
[ 2drop random-no-word announce ] if ; [ 2drop random-no-word announce ] if ;
: <heartbeat-response> ( -- response )
"mississippis" <text-content> ;