From bd3da44d96e2e4542cf8f4f28b38f7cf1540bfd9 Mon Sep 17 00:00:00 2001 From: Steve Ayerhart Date: Sun, 4 Apr 2021 11:18:45 -0400 Subject: [PATCH] clean --- .../services/mississippis/mississippis.factor | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/bonerbonerboner/services/mississippis/mississippis.factor b/bonerbonerboner/services/mississippis/mississippis.factor index 455dcde..7d46516 100644 --- a/bonerbonerboner/services/mississippis/mississippis.factor +++ b/bonerbonerboner/services/mississippis/mississippis.factor @@ -57,11 +57,11 @@ CONSTANT: min-mississippi-count 1 :: announce-nonstandard-mississippi ( terminal sip -- ) { - { .3 [ ] } - { .1 [ announce-random-sip ] } + { .3 [ ] } + { .1 [ announce-random-sip ] } { .075 [ announce-random-stupid-word ] } { .025 [ terminal announce-fake-terminal ] } - { .5 [ sip announce-sip ] } + { .5 [ sip announce-sip ] } } casep ; : announce-nonstandard-mississippis ( terminal -- ) @@ -78,6 +78,3 @@ CONSTANT: min-mississippi-count 1 dup valid-mississippi-count? [ announce-go! swap announce-mississippis ] [ 2drop random-no-word announce ] if ; - -: ( -- response ) - "mississippis" ;