[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 5532387 171/284: Guile: remote REPLs (connect
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile 5532387 171/284: Guile: remote REPLs (connect-to-guile) |
Date: |
Sun, 1 Aug 2021 18:29:39 -0400 (EDT) |
branch: elpa/geiser-guile
commit 5532387d8fe568c143d007d337cc74737680c2a5
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Guile: remote REPLs (connect-to-guile)
geiser-connect (or its specialisation, connect-to-guile) working for
Guile, where the external process is started with the new --listen
flag.
---
geiser/evaluation.scm | 23 +++++++++++++----------
1 file changed, 13 insertions(+), 10 deletions(-)
diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm
index 6b8df8f..1cc21a7 100644
--- a/geiser/evaluation.scm
+++ b/geiser/evaluation.scm
@@ -40,8 +40,8 @@
(write (list (cons 'result result) (cons 'output output)))
(newline))
-(define compile-opts (make-fluid))
-(define compile-file-opts (make-fluid))
+(define compile-opts '())
+(define compile-file-opts '())
(define default-warnings '(arity-mismatch unbound-variable))
(define verbose-warnings `(unused-variable ,@default-warnings))
@@ -51,13 +51,14 @@
((symbol? wl) (case wl
((none nil null) '())
((medium default) default-warnings)
- ((high verbose) verbose-warnings)))
+ ((high verbose) verbose-warnings)
+ (else '())))
(else '())))
(fwarns (if (memq 'unused-variable warns)
(cons 'unused-toplevel warns)
warns)))
- (fluid-set! compile-opts (list #:warnings warns))
- (fluid-set! compile-file-opts (list #:warnings fwarns))))
+ (set! compile-opts (list #:warnings warns))
+ (set! compile-file-opts (list #:warnings fwarns))))
(ge:set-warnings 'none)
@@ -71,10 +72,12 @@
(write-result result output)))
(define (compile/no-warns form module)
- (with-fluids ((compile-opts '()))
- (compile/warns form module)))
+ (compile* form module '()))
-(define (compile/warns form module-name)
+(define (compile/warns form module)
+ (compile* form module compile-opts))
+
+(define (compile* form module-name opts)
(let* ((module (or (find-module module-name) (current-module)))
(ev (lambda ()
(call-with-values
@@ -82,7 +85,7 @@
(let* ((o (compile form
#:to 'objcode
#:env module
- #:opts (fluid-ref compile-opts)))
+ #:opts opts))
(thunk (make-program o)))
(start-stack 'geiser-evaluation-stack
(eval `(,thunk) module))))
@@ -94,7 +97,7 @@
(lambda ()
(let ((cr (compile-file path
#:canonicalization 'absolute
- #:opts (fluid-ref compile-file-opts))))
+ #:opts compile-file-opts)))
(and cr
(list (object->string (save-module-excursion
(lambda () (load-compiled cr))))))))))
- [nongnu] elpa/geiser-guile 452e096 235/284: White space, really, (continued)
- [nongnu] elpa/geiser-guile 452e096 235/284: White space, really, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 2f91e2e 245/284: Ensuring switch-to-geiser asks for an implementation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile f5fee3b 255/284: Quoting binary on version checks (issue #117), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile dc8a792 257/284: Use (car (process-lines ...)) instead of (shell-command ...), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 20043b1 271/284: Make guile return line numbers more often, as suggested by Sergey, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 5eff1e4 279/284: preparing MELPA submission, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4044010 060/284: Support for multiple Scheme implementations, Chapter 1., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile ed29f9f 103/284: Guile: bug in backtrace display fixed., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 567f3ba 129/284: Guile: dead elisp code elimination., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 23e1ec2 169/284: Documentation nits, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 5532387 171/284: Guile: remote REPLs (connect-to-guile),
Philip Kaludercic <=
- [nongnu] elpa/geiser-guile 7a25131 161/284: Guile: fixes for compilation error regexps, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 9ff3140 083/284: Guile: backtrace buttonization., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 7b0d68b 117/284: Guile: better stack traces (using start-stack to delimit them)., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 9b414b4 120/284: Missing entries in scheme/Makefile.am added., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 044c88e 134/284: Guile: small tweak., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile aaa22fb 136/284: Guile: showing again submodules in module documentation., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 3c5cf80 149/284: Guile: better formatting of autodoc's variable values., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c732ede 141/284: Guile: no need to de-mangling autodoc args anymore., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6048041 173/284: Fix for the fix, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile ce57385 188/284: Guile: shorten a bit more multi-line sexps sent to REPL, Philip Kaludercic, 2021/08/01