blob: 87d67ea7297dbf555a45f4e698326aab6ba931e6 (
about) (
plain)
1
2
3
4
5
6
7
|
(import (pict) (ice-9 match))
(define* (main #:optional (args (command-line)))
(match args
((_ source)
(let ((pict (load source))
(target (string-append source ".svg")))
(pict->file pict target)))))
|