mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

remove readline-activator.scm

Browse source 
* guile-readline/readline-activator.scm: Remove this file that was
  deprecated in Guile 1.4.
This commit is contained in:
Andy Wingo 2011-02-08 23:24:36 +01:00
parent 1497e87a4f
commit f92119034e
1 changed files with 0 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

17
guile-readline/readline-activator.scm
View file

@ -1,17 +0,0 @@
(define-module (readline-activator))
(define-public (activate-readline)
(if (not (provided? 'readline))
(scm-error 'misc-error
'activate-readline
"readline is not provided in this Guile installation"
'()
'()))
(save-module-excursion
(lambda ()
(define-module (guile))
(dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so"))
(if (isatty? (current-input-port))
(begin
(define-module (guile) :use-module (ice-9 readline))
(define-module (guile-user) :use-module (ice-9 readline)))))))