diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-08-19 07:54:58 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-08-19 07:54:58 +0200 |
| commit | a0784b20c60d4b5d32ec441dc8e56839bfe40f08 (patch) | |
| tree | e452f16e963c6aba547075a553ce6412bf8fe973 /scheme | |
| parent | 4c25551e639bb19a60211d30e6c7adb2bc51c59e (diff) | |
| download | geiser-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.scm | 4 | ||||
| -rw-r--r-- | scheme/racket/geiser/main.rkt | 4 |
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 |