summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-19 07:54:58 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-19 07:54:58 +0200
commita0784b20c60d4b5d32ec441dc8e56839bfe40f08 (patch)
treee452f16e963c6aba547075a553ce6412bf8fe973 /scheme
parent4c25551e639bb19a60211d30e6c7adb2bc51c59e (diff)
downloadgeiser-guile-a0784b20c60d4b5d32ec441dc8e56839bfe40f08.tar.gz
geiser-guile-a0784b20c60d4b5d32ec441dc8e56839bfe40f08.tar.bz2
Redisplaying the prompt after empty lines on the REPL.
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/emacs.scm4
-rw-r--r--scheme/racket/geiser/main.rkt4
2 files changed, 6 insertions, 2 deletions
diff --git a/scheme/guile/geiser/emacs.scm b/scheme/guile/geiser/emacs.scm
index 72cd3db..05c525e 100644
--- a/scheme/guile/geiser/emacs.scm
+++ b/scheme/guile/geiser/emacs.scm
@@ -1,6 +1,6 @@
;;; emacs.scm -- procedures for emacs interaction: entry point
-;; 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
@@ -26,11 +26,13 @@
ge:callers
ge:callees
ge:find-file)
+ #:export (ge:no-values)
#:use-module (geiser evaluation)
#:use-module ((geiser modules) :renamer (symbol-prefix-proc 'ge:))
#:use-module ((geiser completion) :renamer (symbol-prefix-proc 'ge:))
#:use-module ((geiser xref) :renamer (symbol-prefix-proc 'ge:))
#:use-module ((geiser doc) :renamer (symbol-prefix-proc 'ge:)))
+(define (ge:no-values) (values))
;;; emacs.scm ends here
diff --git a/scheme/racket/geiser/main.rkt b/scheme/racket/geiser/main.rkt
index de1c21c..4915b68 100644
--- a/scheme/racket/geiser/main.rkt
+++ b/scheme/racket/geiser/main.rkt
@@ -22,7 +22,8 @@
geiser:module-location
geiser:module-exports
geiser:autodoc
- geiser:help)
+ geiser:help
+ geiser:no-values)
(require geiser/eval
geiser/modules
@@ -43,5 +44,6 @@
(define geiser:module-location module-location)
(define geiser:module-exports module-exports)
(define geiser:macroexpand macroexpand)
+(define (geiser:no-values) (values))
;;; main.rkt ends here