graphviz: fix test errors on the mac.

db4
John Benediktsson 2012-08-13 17:59:09 -07:00
parent 3167a95c51
commit 2b0e0934a6
2 changed files with 7 additions and 5 deletions

View File

@ -104,8 +104,11 @@ M: ffi-errors error.
" error(s) occurred while rendering." print
"(The messages were probably printed to STDERR.)" print ;
: ?ffi-errors ( n -- )
[ ffi-errors ] unless-zero ; inline
: gvFreeContext ( gvc -- )
int-gvFreeContext [ ffi-errors ] unless-zero ;
int-gvFreeContext ?ffi-errors ;
DESTRUCTOR: gvFreeContext
@ -162,7 +165,7 @@ FUNCTION: c-string
gvContext &gvFreeContext _ "" gvplugin_list
" " split harvest
] with-destructors ;
PRIVATE>
MEMO: supported-engines ( -- seq ) API_layout plugin-list ;

View File

@ -83,9 +83,8 @@ M: unsupported-engine summary
graph id>> graph kind agopen &agclose :> g
g graph build-alien
g -K compute-engine :> engine
gvc g engine gvLayout drop
[ gvc g -T -o gvRenderFilename drop -o ]
[ gvc g gvFreeLayout drop ] [ ] cleanup
gvc g engine gvLayout ?ffi-errors
gvc g -T -o gvRenderFilename ?ffi-errors -o
] with-destructors ;
: (preview) ( graph -- -o )