[bpt/guile.git] / guile-readline / readline-activator.scm

(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)))))))
Commit	Line	Data
c374ab69 MV	1	(define-module (readline-activator))
	2
	3	(define-public (activate-readline)
461c1769 MD	4	(if (not (provided? 'readline))
	5	(scm-error 'misc-error
	6	'activate-readline
	7	"readline is not provided in this Guile installation"
	8	'()
	9	'()))
c374ab69 MV	10	(save-module-excursion
	11	(lambda ()
	12	(define-module (guile))
	13	(dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so"))
	14	(if (isatty? (current-input-port))
	15	(begin
	16	(define-module (guile) :use-module (ice-9 readline))
	17	(define-module (guile-user) :use-module (ice-9 readline)))))))