Paste: replacing booleans with string values

H{ 
  { "value1" t }
  { "value2" f }
  { "value3" 3 }
} 

: boolean-string-substitute ( assoc -- assoc' )
  [ dup [ t = [ drop "True" ] when ] [ f = [ drop "False" ] when ] bi ] assoc-map ;

Annotation: .

! you can squeeze it to one word, but usually it's cleaner this way

: bool>string ( ? -- str )
    {
        { t [ "True" ] }
        { f [ "False" ] }
        [ ]
    } case ;

: boolean-string-substitute ( assoc -- assoc' )
    [ bool>string ] assoc-map ;

New Annotation