graphviz.render: make sure to normalize paths

db4
Alex Vondrak 2011-06-03 15:46:52 -07:00
parent d4d2804270
commit d6f039cd2f
1 changed files with 3 additions and 3 deletions

View File

@ -1,8 +1,8 @@
! Copyright (C) 2011 Alex Vondrak. ! Copyright (C) 2011 Alex Vondrak.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators continuations destructors USING: accessors combinators continuations destructors
images.viewer io.files.unique kernel locals namespaces parser images.viewer io.backend io.files.unique kernel locals
sequences summary unicode.case words namespaces parser sequences summary unicode.case words
graphviz.ffi graphviz.ffi
graphviz.builder graphviz.builder
; ;
@ -79,7 +79,7 @@ M: unsupported-engine summary
:: (graphviz) ( graph -O -T -K -- -o ) :: (graphviz) ( graph -O -T -K -- -o )
-T check-format -T check-format
-O -T default-extension append :> -o -O -T default-extension append normalize-path :> -o
[ [
gvContext &gvFreeContext :> gvc gvContext &gvFreeContext :> gvc
graph id>> graph kind agopen &agclose :> g graph id>> graph kind agopen &agclose :> g