+(define (hill-add dir file)
+ (let* ((prog (file->prog file))
+ (name (prog-name prog))
+ (author (prog-author prog))
+ (submitted (seconds->string)))
+ (copy-file file (make-pathname dir name ".red"))
+ (with-output-to-file (make-pathname dir name ".info")
+ (lambda ()
+ (pretty-print (list author submitted))))))