mikeyhc

(use chicken-syntax intarweb uri-common)
(use spiffy)
(use srfi-13)

(define (build-path-symbol)
  (define path #f)

  (if (not path)
    (set! path (apply symbol-append
                      (map (lambda (x) (if (string? x) (string->symbol x) x))

mikeyhc

(define-syntax <>
  (syntax-rules ()
    ((_ v e ...)
     (if (null? (command-line-arguments))
       (let loop ((v (read-line)))
         (unless (eof-object? v)
           e ...
           (loop (read-line))))
       (let file-loop ((port (open-input-file (car (command-line-arguments))))
                       (rest (cdr (command-line-arguments))))