a command-line #gauche #scheme script to update my web sites
(define (update) (sys-system "git pull") (sys-system "git submodule update --remote --merge") ; hugo (copy-file bots "static/robots.txt" :if-exists :supersede))