diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-05-24 20:57:20 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-05-24 20:57:20 +0000 |
commit | b66dde3c7d0954f1b0d0c6cd1bca61523a9cd9c8 (patch) | |
tree | cacf05c830a3fd2f1514f7f4351b71e0bd7aee00 | |
parent | 366ecaec7a8141e09d267ca754a5f96c1a1bb8eb (diff) | |
download | guile-b66dde3c7d0954f1b0d0c6cd1bca61523a9cd9c8.tar.gz |
(use-value-history): Use resolve-interface instead
of resolve-module so that only the exported bindings are searched.
(save-value-history): Export the newly defined variable. Reported
by Wolfgang Jaehrling.
-rw-r--r-- | ice-9/history.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ice-9/history.scm b/ice-9/history.scm index b7fc6e8a4..57f168c3f 100644 --- a/ice-9/history.scm +++ b/ice-9/history.scm @@ -1,4 +1,4 @@ -;;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. +;;;; Copyright (C) 2000, 2001, 2004 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -23,7 +23,7 @@ (define (use-value-history x) (module-use! (current-module) - (resolve-module '(value-history)))) + (resolve-interface '(value-history)))) (define save-value-history (let ((count 0) @@ -34,6 +34,7 @@ (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)))))) (add-hook! before-eval-hook use-value-history) |