changes

• genpkg.scm :: line 5

  (process (cdr (argv)))
  

  ((lambda (args)
    (if (equal? #\- (string-ref (car args) 1))
      (cond
        ((string=? (car args) "--help") (display help)) ; call/cc here?
         (else (error "unknown parameter" (car args))))
      (let next ((params (string->list (car args))))
        (when (null? params) (void))
        (case (car params)
          ((#\-) (next (cdr params)))
          ((#\h) (display help)) ; call/cc here?
          (else (error "unknown parameter" (car params))))))) (cdr (argv)))
  

• proc-defs.scm :: line 7

  (define process
    (lambda (args)
      (if (equal? #\- (string-ref (car args) 1))
        (cond
          ((string=? (car args) "--help") (display help)) ; call/cc here?
           (else (error "unknown parameter" (car args))))
        (let next ((params (string->list (car args))))
          (when (null? params) (void))
          (case (car params)
            ((#\-) (next (cdr params)))
            ((#\h) (display help)) ; call/cc here?