graphviz: Fix test for rename of rotate!

locals-and-roots
Doug Coleman 2016-04-02 19:57:33 -07:00
parent 15d788718f
commit 3fd1d80b83
1 changed files with 1 additions and 1 deletions

View File

@ -42,7 +42,7 @@ SYMBOLS: supported-layouts supported-formats ;
: graphviz-output-appears-to-exist? ( base -- ? )
"." directory-files [ swap head? ] with count 1 = ;
: next! ( seq -- elt ) [ first ] [ 1 rotate! ] bi ;
: next! ( seq -- elt ) [ first ] [ 1 rotate-headwards! ] bi ;
:: smoke-test ( graph -- pass? )
supported-formats get-global next! :> -T