mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 23:10:21 +02:00
Code Activity

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

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-11-09 15:51:30 +00:00
parent b3a941b9f3
commit 6162a00d07
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -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, * boot-9.scm (readline-options, readline-enable, readline.disable,
readline-set!: New options interface. readline-set!: New options interface.
* readline.scm (readline-port): Use readline-options-interface.
1998-11-05 Mikael Djurfeldt <mdj@barbara.nada.kth.se> 1998-11-05 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* boot-9.scm: Set the repl start module in `top-repl' instead of * boot-9.scm: Set the repl start module in `top-repl' instead of

2
ice-9/readline.scm
View file

@ -82,7 +82,7 @@
(define-public readline-port (define-public readline-port
(let ((do (lambda (r/w) (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) (r/w (or (getenv history-variable)
history-file)))))) history-file))))))
(lambda () (lambda ()