steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/graphviz/graphviz-tests.factor
View File

@ -42,7 +42,7 @@ SYMBOLS: supported-layouts supported-formats ;
: graphviz-output-appears-to-exist? ( base -- ? ) : graphviz-output-appears-to-exist? ( base -- ? )
"." directory-files [ swap head? ] with count 1 = ; "." 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? ) :: smoke-test ( graph -- pass? )
supported-formats get-global next! :> -T supported-formats get-global next! :> -T