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

graphviz: fix test errors on the mac.

John Benediktsson 2012-08-13 17:59:09 -07:00
parent aa1c5cde7d
commit d9786d984a
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/graphviz/ffi/ffi.factor
View File

@ -104,8 +104,11 @@ M: ffi-errors error.
" error(s) occurred while rendering." print " error(s) occurred while rendering." print
"(The messages were probably printed to STDERR.)" print ; "(The messages were probably printed to STDERR.)" print ;
: ?ffi-errors ( n -- )
[ ffi-errors ] unless-zero ; inline
: gvFreeContext ( gvc -- ) : gvFreeContext ( gvc -- )
int-gvFreeContext [ ffi-errors ] unless-zero ; int-gvFreeContext ?ffi-errors ;
DESTRUCTOR: gvFreeContext DESTRUCTOR: gvFreeContext

5
extra/graphviz/render/render.factor
View File

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