diff --git a/extra/webapps/mason/docs-update/docs-update.factor b/extra/webapps/mason/docs-update/docs-update.factor index 7b685890e7..3ecfbef190 100644 --- a/extra/webapps/mason/docs-update/docs-update.factor +++ b/extra/webapps/mason/docs-update/docs-update.factor @@ -1,15 +1,17 @@ ! Copyright (C) 2010 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors continuations furnace.actions help.html -http.server.responses io.directories io.directories.hierarchy -io.launcher io.files io.pathnames kernel memoize threads -webapps.mason.utils ; +USING: accessors continuations namespaces sequences +furnace.actions help.html http.server.responses io.directories +io.directories.hierarchy io.launcher io.files io.pathnames +kernel memoize threads webapps.mason.utils ; IN: webapps.mason.docs-update +SYMBOL: docs-path + : update-docs ( -- ) home [ "newdocs" make-directory - "newdocs" [ { "tar" "xfz" "../docs.tar.gz" } try-process ] with-directory + "newdocs" [ { "tar" "xfz" } docs-path get suffix try-process ] with-directory "docs" exists? [ "docs" "docs.old" move-file ] when "newdocs/docs" "docs" move-file