aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-01-19 22:01:33 +0100
committerLudovic Courtès <ludo@gnu.org>2020-01-19 23:11:37 +0100
commit358f66a004bc232aca1c51d04776a2ae0c1fbc9a (patch)
tree4a946364c4b4e953a39cf07af9002f89432def5d
parenteb6025322017e9096470b449a0dfb2be65668402 (diff)
downloadguix-358f66a004bc232aca1c51d04776a2ae0c1fbc9a.tar
guix-358f66a004bc232aca1c51d04776a2ae0c1fbc9a.tar.gz
repl: Avoid dependency on high-level package modules.
* guix/scripts/repl.scm: Remove imports of (guix scripts build), (gnu packages), (guix utils), and (guix packages). (%options): Define "--load-path" option right here.
-rw-r--r--guix/scripts/repl.scm13
1 files changed, 6 insertions, 7 deletions
diff --git a/guix/scripts/repl.scm b/guix/scripts/repl.scm
index a9268da29e..ff1f208894 100644
--- a/guix/scripts/repl.scm
+++ b/guix/scripts/repl.scm
@@ -20,11 +20,7 @@
(define-module (guix scripts repl)
#:use-module (guix ui)
#:use-module (guix scripts)
- #:use-module ((guix scripts build) #:select (%standard-build-options))
#:use-module (guix repl)
- #:use-module (guix utils)
- #:use-module (guix packages)
- #:use-module (gnu packages)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-37)
#:use-module (ice-9 match)
@@ -58,9 +54,12 @@
(option '(#\q) #f #f
(lambda (opt name arg result)
(alist-cons 'ignore-dot-guile? #t result)))
- (find (lambda (option)
- (member "load-path" (option-names option)))
- %standard-build-options)))
+ (option '(#\L "load-path") #t #f
+ (lambda (opt name arg result)
+ ;; XXX: Imperatively modify the search paths.
+ (set! %load-path (cons arg %load-path))
+ (set! %load-compiled-path (cons arg %load-compiled-path))
+ result))))
(define (show-help)