graphviz: use cleanup-unique-working-directory now.

diff --git a/extra/graphviz/graphviz-tests.factor b/extra/graphviz/graphviz-tests.factor
index b7bc2c6467664b18f23e49de092e90b930cb18ba..032cbf1a4b0ebe74c46bad6906db9a6c43b224ae 100644 (file)
--- a/extra/graphviz/graphviz-tests.factor
+++ b/extra/graphviz/graphviz-tests.factor
@@ -36,13 +36,6 @@ SYMBOLS: supported-layouts supported-formats ;
     "-T" force-error-message standard-formats intersect
     supported-formats set-global ;
 
-! Can't use cleanup-unique-working-directory without fixing
-! issue #890, so skip the cleanup on Windows.
-:: cleanup-unique-working-directory* ( quot -- )
-    unique-directory :> path
-    path [ path quot with-temporary-directory ] with-directory
-    os windows? [ path delete-tree ] unless ; inline
-
 ! Can't predict file extension since we use Graphviz's actual
 ! -O flag, so just look to see that there seems to be some sort
 ! of output.
@@ -58,7 +51,7 @@ SYMBOLS: supported-layouts supported-formats ;
     [
         graph "smoke-test" -T -K graphviz
         "smoke-test" graphviz-output-appears-to-exist?
-    ] cleanup-unique-working-directory* ;
+    ] cleanup-unique-working-directory ;
 
 : preview-smoke-test ( graph -- pass? )
     f "pass?" [