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

summary: adding a safe-summary that catches any errors calling summary.

db4
John Benediktsson 2012-07-22 14:36:51 -07:00
parent 9e1f82add6
commit 0f1a89c7cd
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/summary/summary.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors classes sequences kernel namespaces USING: accessors assocs classes continuations kernel make math
make words math math.parser assocs ; math.parser sequences ;
IN: summary IN: summary
GENERIC: summary ( object -- string ) GENERIC: summary ( object -- string )
@ -31,3 +31,8 @@ M: assoc summary
M: f summary object-summary ; M: f summary object-summary ;
M: integer summary object-summary ; M: integer summary object-summary ;
: safe-summary ( object -- string )
[ summary ]
[ drop object-summary "~summary error: " "~" surround ]
recover ;