Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

snow: add TODO regarding summary before upload

Browse source
This commit is contained in:
Nguyễn Thái Ngọc Duy 2020-09-05 09:31:29 +07:00
parent 711c89cd97
commit f4008c92cf
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/snow/commands.scm
View file

@ -947,6 +947,7 @@
((package-file? (car o)) ((package-file? (car o))
(if (not (every package-file? (cdr o))) (if (not (every package-file? (cdr o)))
(non-homogeneous)) (non-homogeneous))
;; TODO: include a summary (version, file size, etc.)
(if (yes-or-no? cfg "Upload " o " to " (if (yes-or-no? cfg "Upload " o " to "
(remote-uri cfg '(command package uri) "/?")) (remote-uri cfg '(command package uri) "/?"))
(for-each (for-each
@ -960,6 +961,7 @@
(package (create-package (car spec+files) (package (create-package (car spec+files)
(cdr spec+files) (cdr spec+files)
package-file))) package-file)))
;; TODO: include a summary (version, file size, etc.)
(if (yes-or-no? cfg "Upload " o " to " (if (yes-or-no? cfg "Upload " o " to "
(remote-uri cfg '(command package uri) "/?")) (remote-uri cfg '(command package uri) "/?"))
(upload-package cfg spec package package-file)))))) (upload-package cfg spec package package-file))))))