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
讘专讗砖讬转 讘专讗 讗诇讛讬诐 讗转 讛砖诪讬诐 讜讗转 讛讗专抓
