Welcome to the CHICKEN Scheme pasting service

(define-syntax workspace (syntax-rules () ((_) "~/workspace/")))

(define-syntax hp-repos
  (syntax-rules ()
    ((_) '("datarouter" "index" "lib" "model-index" "site" "services" "text-index" "util" "config"))))

(define-syntax git-all
  (syntax-rules ()
    ((_ arg1 ...)
     (let ((current-dir (current-directory)))
       (map (lambda (repo)
              (change-directory (++ (workspace) repo))
              (newline)
              (print "===== " repo " =====")
              (git arg1 ...))
            (hp-repos))
       (change-directory current-dir)))))