graphviz.render: Find the graphviz binary using find-in-standard-login-path.

diff --git a/extra/graphviz/render/render.factor b/extra/graphviz/render/render.factor
index 5b5c188d9b91317a91e892a49dce2a0ae9d9a358..88a39dd2549d6060f6a39fe20c9e49a3a1e8f3b5 100644 (file)
--- a/extra/graphviz/render/render.factor
+++ b/extra/graphviz/render/render.factor
@@ -45,7 +45,7 @@ M: unsupported-encoding summary
 HOOK: default-graphviz-program os ( -- path/f )
 
 M: object default-graphviz-program ( -- path/f )
-    standard-layouts [ find-in-path ] find nip ;
+    standard-layouts [ find-in-standard-login-path ] map-find drop ;
 
 ERROR: cannot-find-graphviz-installation ;