#!/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))))