* readline.scm (readline-port): Use readline-options-interface.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 86caf88..cde5289 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,8 +1,10 @@
-1998-11-09  Mikael Djurfeldt  <mdj@barbara.nada.kth.se>
+1998-11-10  Mikael Djurfeldt  <mdj@barbara.nada.kth.se>
 
        * boot-9.scm (readline-options, readline-enable, readline.disable,
        readline-set!: New options interface.
 
+       * readline.scm (readline-port): Use readline-options-interface.
+
 1998-11-05  Mikael Djurfeldt  <mdj@barbara.nada.kth.se>
 
        * boot-9.scm: Set the repl start module in `top-repl' instead of

diff --git a/ice-9/readline.scm b/ice-9/readline.scm
index 38dac13..48e424d 100644 (file)
--- a/ice-9/readline.scm
+++ b/ice-9/readline.scm
@@ -82,7 +82,7 @@
 
 (define-public readline-port
   (let ((do (lambda (r/w)
-             (if (memq 'history-file (read-options-interface))
+             (if (memq 'history-file (readline-options-interface))
                  (r/w (or (getenv history-variable)
                           history-file))))))
     (lambda ()