mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

value-history-enabled? accessor

Browse source 
* module/ice-9/history.scm (value-history-enabled?): Add accessor.
  (enable-value-history!, disable-value-history!): Adapt.
This commit is contained in:
Andy Wingo 2010-07-10 11:16:16 +02:00
parent 2b12193df2
commit 8c8a13ecf5
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
module/ice-9/history.scm
View file

@ -18,12 +18,14 @@
;;;; A simple value history support ;;;; A simple value history support
(define-module (ice-9 history) (define-module (ice-9 history)
#:export (enable-value-history! disable-value-history! #:export (value-history-enabled? enable-value-history! disable-value-history!
clear-value-history!)) clear-value-history!))
(process-define-module '((value-history))) (process-define-module '((value-history)))
(define value-history-enabled? #f) (define *value-history-enabled?* #f)
(define (value-history-enabled?)
*value-history-enabled?*)
(define (use-value-history x) (define (use-value-history x)
(module-use! (current-module) (module-use! (current-module)
@ -42,18 +44,18 @@
(set! count c)))))) (set! count c))))))
(define (enable-value-history!) (define (enable-value-history!)
(if (not value-history-enabled?) (if (not (value-history-enabled?))
(begin (begin
(add-hook! before-eval-hook use-value-history) (add-hook! before-eval-hook use-value-history)
(add-hook! before-print-hook save-value-history) (add-hook! before-print-hook save-value-history)
(set! value-history-enabled? #t)))) (set! *value-history-enabled?* #t))))
(define (disable-value-history!) (define (disable-value-history!)
(if value-history-enabled? (if (value-history-enabled?)
(begin (begin
(remove-hook! before-eval-hook use-value-history) (remove-hook! before-eval-hook use-value-history)
(remove-hook! before-print-hook save-value-history) (remove-hook! before-print-hook save-value-history)
(set! value-history-enabled? #f)))) (set! *value-history-enabled?* #f))))
(define (clear-value-history!) (define (clear-value-history!)
(let ((history (resolve-module '(value-history)))) (let ((history (resolve-module '(value-history))))