: update-docs ( -- )
home [
- "newdocs" exists? [ "newdocs" delete-tree ] when
+ "newdocs" file-exists? [ "newdocs" delete-tree ] when
"newdocs" make-directory
"newdocs" [ { "tar" "xfz" } docs-path suffix try-process ] with-directory
- "docs" exists? [ "docs" "docs.old" move-file ] when
+ "docs" file-exists? [ "docs" "docs.old" move-file ] when
"newdocs/docs" "docs" move-file
"newdocs" delete-directory
- "docs.old" exists? [ "docs.old" delete-tree ] when
+ "docs.old" file-exists? [ "docs.old" delete-tree ] when
\ load-index reset-memoized
] with-directory ;