changes

• genpkg.scm :: line 21

  (bold-blue "==> ") (bold-white "Downloading sources ...")
  (newline)
  

  (bold-blue "==> ") (bold-white "Downloading sources ...") (newline)
  

• genpkg.scm :: line 36

    (file-close temp-no) (process-run "rm -rf /tmp/genpkg"))
  
  

    (file-close temp-no)
    (newline) (bold-blue "==> ") (bold-white "Verifying integrity of source files ...") (newline)
    (for-each
      (lambda (source/hash)
        (begin
          (bold-mag "  -> ") (bold-white (string-append (car source/hash) " ... "))
          (cond
            ((equal? (cdr source/hash) (car (string-search "^([0-9]|[a-z])*" (car (return (string-append "sha1sum " (fetch "name" contents) ".src/" (car source/hash)))))))
               (reset "passed") (newline))
            (else (reset "failed") (newline) (print-error-message "integrity check failed.") (exit)))))
      (map (lambda (source hash) (cons source hash))
        (map (lambda (source-uri)
          (match-after (string-append (fetch "repo" contents) "/" (fetch "name" contents) "/") source-uri))
          (return (string-append "cat " temp-path)) )
    (string-split (fetch "sha1" contents))))
    (process-run (string-append "rm " temp-path) ))