[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 3fa6b34 004/284: Load file commands.
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile 3fa6b34 004/284: Load file commands. |
Date: |
Sun, 1 Aug 2021 18:29:05 -0400 (EDT) |
branch: elpa/geiser-guile
commit 3fa6b3439221e14881d17fe6b1f3b280a7da2862
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Load file commands.
---
geiser/emacs.scm | 6 ++++--
geiser/eval.scm | 11 +++++++----
2 files changed, 11 insertions(+), 6 deletions(-)
diff --git a/geiser/emacs.scm b/geiser/emacs.scm
index 318b07a..38ddc7c 100644
--- a/geiser/emacs.scm
+++ b/geiser/emacs.scm
@@ -27,11 +27,13 @@
(define-module (geiser emacs)
#:re-export (ge:proc-args
ge:completions
- ge:compile-file)
+ ge:compile-file
+ ge:load-file)
#:use-module ((geiser introspection)
:renamer (symbol-prefix-proc 'ge:))
#:use-module ((geiser eval)
- :select ((comp-file . ge:compile-file))))
+ :select ((comp-file . ge:compile-file)
+ (load-file . ge:load-file))))
;;; emacs.scm ends here
diff --git a/geiser/eval.scm b/geiser/eval.scm
index 530099d..1400566 100644
--- a/geiser/eval.scm
+++ b/geiser/eval.scm
@@ -25,7 +25,7 @@
;;; Code:
(define-module (geiser eval)
- #:export (eval-in comp-file)
+ #:export (eval-in comp-file load-file)
#:use-module (srfi srfi-1))
(define (eval-in form module-name)
@@ -70,9 +70,12 @@ SUBR, MSG and REST."
(current (getcwd)))
(dynamic-wind
(lambda () (chdir dest))
- (lambda ()
- (compile-file path)
- (compile-and-load path))
+ (lambda () (compile-file path))
(lambda () (chdir current)))))
+(define (load-file path)
+ "Load file, given its full @var{path}."
+ (compile-and-load path))
+
+
;;; eval.scm ends here
- [nongnu] branch elpa/geiser-guile created (now 8dda28f), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 3bb2a98 006/284: Don't let (ice-9 history) confuse the evaluator., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 849fc5f 002/284: Compile file., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 3fa6b34 004/284: Load file commands.,
Philip Kaludercic <=
- [nongnu] elpa/geiser-guile 1b60c6f 003/284: * scheme/guile/geiser/eval.scm: missing file in previous commit, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 475fab3 005/284: README stuff., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 7d50479 001/284: Guile scheme files moved to scheme/guile., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile b20a784 010/284: Better arg lists., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile b853bac 009/284: Faster M-., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 9ff1f7e 033/284: Eval/load file in the correct module., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 441cc2a 037/284: Refactoring: local bindings discovery moved to schemeland., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile ceca3e5 038/284: Display (quote foo) as 'foo in autodoc strings., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4ab2e9c 016/284: Autodoc: try symbol at point first. Some cleanups., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a64467d 022/284: New command to open module file., Philip Kaludercic, 2021/08/01