[nongnu] elpa/geiser-guile f9be2bc 080/284: Guile: better stack trace display.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit f9be2bc11a281deeb85c12d45ef566e533e4ca16
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Guile: better stack trace display.
---
 geiser/evaluation.scm | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/geiser/evaluation.scm b/geiser/evaluation.scm
index 537e145..de08d17 100644
--- a/geiser/evaluation.scm
+++ b/geiser/evaluation.scm
@@ -67,7 +67,7 @@
                          (set! error #t)
                          (apply handle-error captured-stack args))
                        (lambda args
-                         (set! captured-stack (make-stack #t 1 13)))))))))
+                         (set! captured-stack (make-stack #t 2 15)))))))))
       (write `(,(if error result (cons 'result result))
                (output . ,output)))
       (newline))))
@@ -78,22 +78,17 @@
      (set-current-module module)
      (compile form))))
 
-(define (ge:eval form module-name)
-  (evaluate form module-name eval))
-
+(define ge:eval ge:compile)
 (define (ge:compile form module-name)
   (evaluate form module-name eval-compile))
 
 (define (ge:compile-file path)
-  "Compile and load file, given its full @var{path}."
-  (evaluate `(and (compile-file ,path)
-                  (load-compiled ,(compiled-file-name path)))
-            '(system base compile)
-            eval-compile))
+  "Compile a file, given its full @var{path}."
+  (ge:compile `(compile-and-load ,path) '(geiser evaluation)))
 
 (define (ge:load-file path)
   "Load file, given its full @var{path}."
-  (evaluate `(load ,path) #f eval))
+  (ge:compile `(load-compiled ,(compiled-file-name path)) '(geiser 
evaluation)))
 
 (define (ge:macroexpand form . all)
   (let ((all (and (not (null? all)) (car all))))