amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: import: Skip existing definition for ‘--insert’ option.

Browse source 
* guix/scripts/import.scm (guix-import): Skip existing definition for
‘--insert’ option.

Change-Id: I2c4242669f974b263a018ab0cf56538bd7c81d06
This commit is contained in:
Hilton Chain 2025-02-27 15:37:31 +08:00
parent 2ca0b957f2
commit d9b767640c
No known key found for this signature in database
GPG key ID: ACC66D09CA528292
1 changed files with 13 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

23
guix/scripts/import.scm
View file

@ -152,16 +152,19 @@ PROC callback."
(lambda (expr) (lambda (expr)
(match expr (match expr
(((? define-prefix? define-prefix) term _ ...) (((? define-prefix? define-prefix) term _ ...)
(let ((source-properties ;; Skip existing definition.
(find-definition-insertion-location (unless (find-definition-location
file term #:define-prefix define-prefix))) file term #:define-prefix define-prefix)
(if source-properties (let ((source-properties
(insert-expression source-properties expr) (find-definition-insertion-location
(let ((port (open-file file "a"))) file term #:define-prefix define-prefix)))
(pretty-print-with-comments port expr) (if source-properties
(newline port) (insert-expression source-properties expr)
(newline port) (let ((port (open-file file "a")))
(close-port port))))))))) (pretty-print-with-comments port expr)
(newline port)
(newline port)
(close-port port))))))))))
(import-as-definitions importer (import-as-definitions importer
(cons (string-append "--file-to-insert=" file) (cons (string-append "--file-to-insert=" file)
args) args)