diff options
author | Herman Rimm <herman@rimm.ee> | 2024-05-05 19:25:34 +0200 |
---|---|---|
committer | Guix Patches Tester <> | 2024-05-05 20:33:58 +0200 |
commit | 64245617f1f1c58bc1f716d63cb5da6e51c9cd6b (patch) | |
tree | 66833882e9ecd0bce76ae601657d4882d72abf36 | |
parent | 74179ee6d7baddd158ca6fa0e2709857415379b5 (diff) | |
download | guix-patches-64245617f1f1c58bc1f716d63cb5da6e51c9cd6b.tar guix-patches-64245617f1f1c58bc1f716d63cb5da6e51c9cd6b.tar.gz |
ui: Make 'user-module' parameter of 'load*' optional.
* guix/ui.scm (load*): Make 'user-module' paramater optional.
Change-Id: I4ebf854cd48bb8944bd70ac1c3ece4476fd6710c
-rw-r--r-- | guix/ui.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index d82fa533cc..8839079ee0 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -216,7 +216,8 @@ symlink to a non-existent file like 'pipe:[1234]', as in this example: (canonicalize-path file)) (const file))) -(define* (load* file user-module +(define* (load* file #:optional + (user-module (make-fresh-user-module)) #:key (on-error 'nothing-special)) "Load the user provided Scheme source code FILE." (define (error-string frame args) |