safe-summary ( object -- string )

Vocabulary

summary

Inputs

object

an object

Outputs

string

an object

Definition

USING: continuations kernel sequences ;

IN: summary

: safe-summary ( object -- string )
    [ summary ]
    [ drop object-summary "~summary error: " "~" surround ]
    recover ;