Package: guix;
Reported by: Christopher Howard <christopher <at> librehacker.com>
Date: Fri, 8 Nov 2024 23:24:02 UTC
Severity: normal
Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):
From: Christopher Howard <christopher <at> librehacker.com> To: bug-guix <at> gnu.org Subject: emacs-guix: guix-system-from-file broken Date: Fri, 08 Nov 2024 14:23:16 -0900
I get an error when attempting to run guix-system-from-file, which is run with command M-x guix y y. After entering path to the system configuration file, I get this error:
```
Debugger entered--Lisp error: (error "Error in evaluating guile expression: ice-9/boot-9.scm:1685:16: In procedure raise-exception:\nerror: system-sexps: unbound variable\n\nEntering a new prompt. Type `,bt' for a backtrace or `,q' to continue.")
signal(error ("Error in evaluating guile expression: ice-9/boot-9.scm:1685:16: In procedure raise-exception:\nerror: system-sexps: unbound variable\n\nEntering a new prompt. Type `,bt' for a backtrace or `,q' to continue."))
error("Error in evaluating guile expression: %s" "ice-9/boot-9.scm:1685:16: In procedure raise-exception:\nerror: system-sexps: unbound variable\n\nEntering a new prompt. Type `,bt' for a backtrace or `,q' to continue.")
(if (geiser-eval--retort-error res) (error "Error in evaluating guile expression: %s" (geiser-eval--retort-output res)) (cdr (assq 'result res)))
(let ((res (geiser-eval--send/wait (list ':eval (list ':scm str)) guix-geiser-connection-timeout))) (if res nil (error "Sorry, the evaluation is aborted because it has taken too much time.\nTry to increase the value of `guix-geiser-connection-timeout'\nvariable if you have a slow machine, or please report if you\nthink this command takes unreasonably long time to run.")) (if (geiser-eval--retort-error res) (error "Error in evaluating guile expression: %s" (geiser-eval--retort-output res)) (cdr (assq 'result res))))
(save-current-buffer (set-buffer (or repl (guix-geiser-repl))) (let ((res (geiser-eval--send/wait (list ':eval (list ':scm str)) guix-geiser-connection-timeout))) (if res nil (error "Sorry, the evaluation is aborted because it has taken too much time.\nTry to increase the value of `guix-geiser-connection-timeout'\nvariable if you have a slow machine, or please report if you\nthink this command takes unreasonably long time to run.")) (if (geiser-eval--retort-error res) (error "Error in evaluating guile expression: %s" (geiser-eval--retort-output res)) (cdr (assq 'result res)))))
(let ((gc-cons-threshold (max gc-cons-threshold 10000000))) (save-current-buffer (set-buffer (or repl (guix-geiser-repl))) (let ((res (geiser-eval--send/wait (list ':eval (list ... str)) guix-geiser-connection-timeout))) (if res nil (error "Sorry, the evaluation is aborted because it has taken too much time.\nTry to increase the value of `guix-geiser-connection-timeout'\nvariable if you have a slow machine, or please report if you\nthink this command takes unreasonably long time to run.")) (if (geiser-eval--retort-error res) (error "Error in evaluating guile expression: %s" (geiser-eval--retort-output res)) (cdr (assq 'result res))))))
guix-geiser-eval("(system-sexps 'from-file '(\"/home/christopher/Repos/cmh/systems/work.scm\") '(file number-of-packages number-of-services kernel bootloader firmware initrd-modules))" #<buffer *Guix Internal REPL*>)
(car (guix-geiser-eval str repl))
(guix-guile-read-from-string (car (guix-geiser-eval str repl)))
guix-geiser-eval-read("(system-sexps 'from-file '(\"/home/christopher/Repos/cmh/systems/work.scm\") '(file number-of-packages number-of-services kernel bootloader firmware initrd-modules))" #<buffer *Guix Internal REPL*>)
(let ((result (guix-geiser-eval-read str (guix-get-repl-buffer 'internal)))) (if (and (consp result) (eq (car result) 'in-file)) (guix-guile-read-from-file (cdr result)) result))
guix-eval-read("(system-sexps 'from-file '(\"/home/christopher/Repos/cmh/systems/work.scm\") '(file number-of-packages number-of-services kernel bootloader firmware initrd-modules))")
(let ((sexps (guix-eval-read (guix-make-guile-expression 'system-sexps search-type search-values params)))) (if (eq search-type 'from-file) (mapcar #'(lambda (alist) (cons (cons 'file (car search-values)) alist)) sexps) sexps))
guix-system-get-entries(from-file ("/home/christopher/Repos/cmh/systems/work.scm") (file number-of-packages number-of-services kernel bootloader firmware initrd-modules))
guix-system-info-get-entries(from-file "/home/christopher/Repos/cmh/systems/work.scm")
apply(guix-system-info-get-entries (from-file "/home/christopher/Repos/cmh/systems/work.scm"))
bui-get-entries(guix-system info (from-file "/home/christopher/Repos/cmh/systems/work.scm"))
bui-get-display-entries(guix-system info (from-file "/home/christopher/Repos/cmh/systems/work.scm"))
guix-system-get-display(from-file "/home/christopher/Repos/cmh/systems/work.scm")
guix-system-from-file("/home/christopher/Repos/cmh/systems/work.scm")
funcall-interactively(guix-system-from-file "/home/christopher/Repos/cmh/systems/work.scm")
call-interactively(guix-system-from-file)
magit-invoke-popup-action(121)
funcall-interactively(magit-invoke-popup-action 121)
call-interactively(magit-invoke-popup-action nil nil)
command-execute(magit-invoke-popup-action)
```
--
馃摏 Christopher Howard
馃殌 gemini://gem.librehacker.com
馃寪 http://gem.librehacker.com
讘专讗砖讬转 讘专讗 讗诇讛讬诐 讗转 讛砖诪讬诐 讜讗转 讛讗专抓
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.