scheme/emacs-guix/lint.scm

@@ -1,6 +1,6 @@
 ;;; lint.scm --- Code related to linting Guix packages
 
-;; Copyright © 2015, 2017, 2019 Alex Kost <alezost@gmail.com>
+;; Copyright © 2015, 2017, 2019–2020 Alex Kost <alezost@gmail.com>
 
 ;; This file is part of Emacs-Guix.
 
@@ -25,7 +25,8 @@
   #:use-module (guix ui)
   #:use-module (emacs-guix emacs)
   #:use-module (emacs-guix utils)
-  #:autoload   (emacs-guix packages) (package-by-id-or-name)
+  #:autoload   (emacs-guix packages) (package-specification
+                                      package-by-id-or-name)
   #:export (lint-checker-names
             lint-checker-sexps
             lint-package

scheme/emacs-guix/packages.scm

@@ -393,7 +393,7 @@ MATCH-PARAMS is a list of parameters that REGEXP can match."
 
 (define (packages-from-file file)
   "Return a list of packages from FILE."
-  (let ((package (load (canonicalize-path file))))
+  (let ((package (primitive-load (canonicalize-path file))))
     (if (package? package)
         (begin
           (register-package package)

scheme/emacs-guix/profiles.scm

@@ -1,6 +1,6 @@
 ;;; profiles.scm --- Code related to Guix profiles
 
-;; Copyright © 2017–2019 Alex Kost <alezost@gmail.com>
+;; Copyright © 2017–2020 Alex Kost <alezost@gmail.com>
 ;; Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 
 ;; This file is part of Emacs-Guix.
@@ -29,7 +29,7 @@
   #:use-module (srfi srfi-1)
   #:use-module (guix profiles)
   #:use-module (guix search-paths)
-  #:autoload   (guix store roots) (gc-roots)
+  #:autoload   (guix store roots) (user-owned? gc-roots)
   #:export (manifest-entry->name+version+output
             manifest-entries-by-name
             manifest-entry-by-output