You've already forked guix-tribes
19 lines
544 B
Scheme
Executable File
19 lines
544 B
Scheme
Executable File
#!/usr/bin/env guile
|
|
!#
|
|
|
|
(define-module (scripts compare-system-generations)
|
|
#:use-module (ice-9 match)
|
|
#:use-module (srfi srfi-13)
|
|
#:use-module (tribes diagnostics system-generations))
|
|
|
|
(define (script-invocation? argv)
|
|
(match argv
|
|
((program . _)
|
|
(and (string? program)
|
|
(or (string=? program "compare-system-generations.scm")
|
|
(string-suffix? "/compare-system-generations.scm" program))))
|
|
(_ #f)))
|
|
|
|
(when (script-invocation? (command-line))
|
|
(compare-system-generations-main (cdr (command-line))))
|