graphviz: fix load errors

diff --git a/extra/graphviz/ffi/ffi.factor b/extra/graphviz/ffi/ffi.factor
index 50fccf0a1fb99387075416f0d2d796f46dd056b3..794640ab4bbb18a0bc46e3654f3553ea0f37665d 100644 (file)
--- a/extra/graphviz/ffi/ffi.factor
+++ b/extra/graphviz/ffi/ffi.factor
@@ -6,6 +6,7 @@ fry io kernel literals math prettyprint sequences splitting
 system memoize graphviz ;
 IN: graphviz.ffi
 
+<<
 "libgraph" {
     { [ os macosx? ] [ "libgraph.dylib" ] }
     { [ os unix?   ] [ "libgraph.so"    ] }
@@ -18,6 +19,7 @@ IN: graphviz.ffi
     { [ os unix?   ] [ "libgvc.so"    ] }
     { [ os winnt?  ] [ "gvc.dll"      ] }
 } cond cdecl add-library
+>>
 
 LIBRARY: libgraph
 

diff --git a/extra/graphviz/render/render.factor b/extra/graphviz/render/render.factor
index 76857b1b85a65fb6c7268bc18add52cb6196c005..f16278f9a206174960db79a718a60356c55ea492 100644 (file)
--- a/extra/graphviz/render/render.factor
+++ b/extra/graphviz/render/render.factor
@@ -110,7 +110,7 @@ PRIVATE>
 <PRIVATE
 
 : define-graphviz-by-engine ( -K -- )
-    [ create-in dup make-inline ]
+    [ "graphviz.render" create dup make-inline ]
     [ [ graphviz ] curry ] bi
     (( graph -O -T -- ))
     define-declared ;
@@ -118,7 +118,7 @@ PRIVATE>
 : define-graphviz-by-format ( -T -- )
     [
         dup supported-engines member? [ "-file" append ] when
-        create-in dup make-inline
+        "graphviz.render" create dup make-inline
     ]
     [ [ graphviz* ] curry ] bi
     (( graph -O -- ))