diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-03-15 14:34:01 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-19 15:14:08 +0100 |
| commit | ec0a8661728f915c21058076327b398ac5c38bbe (patch) | |
| tree | f1f844345920a7e6f04ef133fbcc2d9dddb38e49 /guix/inferior.scm | |
| parent | f06a26f5b594b1d1865a41facca0ea65a3837901 (diff) | |
| download | guix-ec0a8661728f915c21058076327b398ac5c38bbe.tar guix-ec0a8661728f915c21058076327b398ac5c38bbe.tar.gz | |
inferior: Adjust to protocol (0 1).
* guix/inferior.scm (port->inferior): For protocol (0 x ...), where x >= 1,
send the (() repl-version ...) form.
Diffstat (limited to 'guix/inferior.scm')
| -rw-r--r-- | guix/inferior.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/guix/inferior.scm b/guix/inferior.scm index 6b685ece30..ec8ff8ddbe 100644 --- a/guix/inferior.scm +++ b/guix/inferior.scm @@ -159,6 +159,15 @@ inferior." (letrec ((result (inferior 'pipe pipe close (cons 0 rest) (delay (%inferior-packages result)) (delay (%inferior-package-table result))))) + + ;; For protocol (0 1) and later, send the protocol version we support. + (match rest + ((n _ ...) + (when (>= n 1) + (send-inferior-request '(() repl-version 0 1) result))) + (_ + #t)) + (inferior-eval '(use-modules (guix)) result) (inferior-eval '(use-modules (gnu)) result) (inferior-eval '(use-modules (ice-9 match)) result) |