[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile e43cfa8 121/284: Guile: evaluation fixes (cur
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile e43cfa8 121/284: Guile: evaluation fixes (current git head). |
Date: |
Sun, 1 Aug 2021 18:29:28 -0400 (EDT) |
branch: elpa/geiser-guile
commit e43cfa849ea8f361365bdea6b751c0f44467aa1a
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Guile: evaluation fixes (current git head).
---
geiser/evaluation.scm | 6 ++++--
geiser/modules.scm | 5 +++--
geiser/xref.scm | 6 ++++--
3 files changed, 11 insertions(+), 6 deletions(-)
diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm
index 4fec3ed..cd4d6a4 100644
--- a/geiser/evaluation.scm
+++ b/geiser/evaluation.scm
@@ -42,10 +42,12 @@
(define (ge:compile form module-name)
(let* ((module (or (find-module module-name) (current-module)))
(result #f)
- (form `(start-stack 'geiser-evaluation-stack ,form))
(ev (lambda ()
(set! result (call-with-values
- (lambda () (compile form #:env module))
+ (lambda ()
+ (compile (start-stack
+ 'geiser-evaluation-stack form)
+ #:env module))
(lambda vs (map object->string vs)))))))
(let ((output (with-output-to-string ev)))
(write `(,(cons 'result result) (output . ,output)))
diff --git a/geiser/modules.scm b/geiser/modules.scm
index 3ca593e..2934603 100644
--- a/geiser/modules.scm
+++ b/geiser/modules.scm
@@ -1,6 +1,6 @@
;;; modules.scm -- module metadata
-;; Copyright (C) 2009 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -27,7 +27,8 @@
(lambda ()
(apropos-fold (lambda (module name var init)
(if (eq? name sym)
- (throw 'module-name (module-name module)) init))
+ (throw 'module-name (module-name module))
+ init))
#f
(regexp-quote (symbol->string sym))
(if (or (null? all) (not (car all)))
diff --git a/geiser/xref.scm b/geiser/xref.scm
index 54a0d9c..060bec4 100644
--- a/geiser/xref.scm
+++ b/geiser/xref.scm
@@ -1,6 +1,6 @@
;;; xref.scm -- cross-referencing utilities
-;; Copyright (C) 2009 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -24,7 +24,9 @@
(define (symbol-location sym)
(cond ((symbol-module sym) => module-location)
- (else '())))
+ (else (let ((obj (symbol->object sym)))
+ (or (and (program? obj) (program-location obj))
+ '())))))
(define (generic-methods sym)
(let* ((gen (symbol->object sym))
- [nongnu] elpa/geiser-guile a405f22 104/284: Guile: fix for file loading (we always compile them now)., (continued)
- [nongnu] elpa/geiser-guile a405f22 104/284: Guile: fix for file loading (we always compile them now)., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 134606d 102/284: Guile: Support for multiple arities in autodoc., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c34995d 110/284: Guile: support for the REPL debugger, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 55c37c7 109/284: Guile: Minimal support for the new REPL debug mode., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a9f26f1 115/284: Guile: slightly better compilation error regexps., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 11c2d58 138/284: Guile: excluding anonymous module names from completion., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 1c9457a 116/284: Guile: heuristically resolving relative paths in REPL errors., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile f1ac35f 140/284: Guile: filtering gensym names in autodoc display., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6baa7d3 124/284: Guile: better stack trace limits during evaluation., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 14c1689 132/284: Guile: no more module loading under the rug., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile e43cfa8 121/284: Guile: evaluation fixes (current git head).,
Philip Kaludercic <=
- [nongnu] elpa/geiser-guile d41ac93 123/284: Debugging leftover., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6907aea 145/284: Guile: geiser commands working at the debugging prompt., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 1178462 155/284: Guile: show error message upon entering the debugger, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile d1d05b7 175/284: Guile: using the new syntax for sending eval requests, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 8552404 176/284: Guile: using meta-commands to talk with Guile, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 1a35206 150/284: More docs., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile e2e3a0d 151/284: Redisplaying the prompt after empty lines on the REPL., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 640e9bc 125/284: Guile: fix for macroexpand., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 855f6f2 153/284: Guile: fix for import module REPL command, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 19ed2c0 157/284: Guile: don't create empty modules before loading them, Philip Kaludercic, 2021/08/01