graphviz: Fix test for rename of rotate!
parent
15d788718f
commit
3fd1d80b83
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue