21 lines
816 B
Scheme
21 lines
816 B
Scheme
;;; -*- mode: scheme; -*-
|
|
|
|
(cond ((false-if-exception (resolve-interface '(ice-9 readline)))
|
|
=>
|
|
(lambda (module)
|
|
;; Enable completion and input history at the REPL.
|
|
((module-ref module 'activate-readline))))
|
|
(else
|
|
(display "Consider installing the 'guile-readline' package for
|
|
convenient interactive line editing and input history.\n\n")))
|
|
|
|
(unless (getenv "INSIDE_EMACS")
|
|
(cond ((false-if-exception (resolve-interface '(ice-9 colorized)))
|
|
=>
|
|
(lambda (module)
|
|
;; Enable completion and input history at the REPL.
|
|
((module-ref module 'activate-colorized))))
|
|
(else
|
|
(display "Consider installing the 'guile-colorized' package
|
|
for a colorful Guile experience.\n\n"))))
|