Gambit-C Scheme Script to Recursively Update Git Remotes

update-projects.scm

#!/usr/bin/env gsi-script
;; -*- scheme -*-

(define (update cwd)
  (for-each
   (lambda (entry)
     (let ((full-entry-path (path-expand entry cwd)))
       (if (equal? 'directory (file-type full-entry-path))
           (if (equal? ".git" entry)
               (begin
                 (pretty-print cwd)
                 (shell-command
                  (string-append "cd \"" cwd "\" && git remote update")))
               (if (not (or (equal? "." entry)
                            (equal? ".." entry)))
                 (update full-entry-path))))))
   (directory-files (list path: cwd ignore-hidden: #f))))

(define (main path) (update path) 0)