graphviz.render.windows: need to return with the whole path in case

graphivz directory is not in PATH

diff --git a/extra/graphviz/render/windows/windows.factor b/extra/graphviz/render/windows/windows.factor
index 3930b8c2585521447e05bcfef74889b7bbd5d885..3933b9f247162b3e971639ae0e9f53dcfb09307d 100644 (file)
--- a/extra/graphviz/render/windows/windows.factor
+++ b/extra/graphviz/render/windows/windows.factor
@@ -18,6 +18,5 @@ IN: graphviz.render.windows
     ] map concat ;
 
 M: windows default-graphviz-program ( -- path/f )
-    graphviz-install-directories
-    standard-layouts [ ".exe" append ] map
-    [ find-in-applications ] with find nip ;
+    graphviz-install-directories standard-layouts
+    [ ".exe" append find-in-applications ] with map sift ?first ;