#lang scheme/gui (require "packer.ss") ;(define path (current-directory);(get-directory "" #f #f null)) (define file (string->path "/home/stephen/projects/projects-project/packer/packer.ss")) ;(get-file "select the main file" #f (current-directory) "packer.ss" #f null '(("Scheme file" "*.ss;*.scm")))) (define path (create-planet-info file)) ; → path (make-planet-archive path) ; → path-string?