Welcome to the CHICKEN Scheme pasting service

no title added by thecombjelly on Thu Oct 4 23:17:31 2012

(define-syntax git (syntax-rules () ((_ arg1 ...) (! git arg1 ...))))

(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 (λ (repo)
              (change-directory (++ (workspace) repo))
              (newline)
              (print "===== " repo " =====")
              (git arg1 ...))
            (hp-repos))
       (change-directory current-dir)))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which procedure can be used to check whether its argument is a string?
Visually impaired? Let me spell it for you (wav file) download WAV