123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566 |
- (define-module (ice-9 history)
- #:export (value-history-enabled? enable-value-history! disable-value-history!
- clear-value-history!))
- (define-module* '(value-history))
- (define *value-history-enabled?* #f)
- (define (value-history-enabled?)
- *value-history-enabled?*)
- (define (use-value-history x)
- (module-use! (current-module)
- (resolve-interface '(value-history))))
- (define save-value-history
- (let ((count 0)
- (history (resolve-module '(value-history))))
- (lambda (v)
- (if (not (unspecified? v))
- (let* ((c (1+ count))
- (s (string->symbol (simple-format #f "$~A" c))))
- (simple-format #t "~A = " s)
- (module-define! history s v)
- (module-export! history (list s))
- (set! count c))))))
- (define (enable-value-history!)
- (if (not (value-history-enabled?))
- (begin
- (add-hook! before-eval-hook use-value-history)
- (add-hook! before-print-hook save-value-history)
- (set! *value-history-enabled?* #t))))
- (define (disable-value-history!)
- (if (value-history-enabled?)
- (begin
- (remove-hook! before-eval-hook use-value-history)
- (remove-hook! before-print-hook save-value-history)
- (set! *value-history-enabled?* #f))))
- (define (clear-value-history!)
- (let ((history (resolve-module '(value-history))))
- (hash-clear! (module-obarray history))
- (hash-clear! (module-obarray (module-public-interface history)))))
- (enable-value-history!)
|