You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

19 lines
789B

  1. (cond ((false-if-exception (resolve-interface '(ice-9 readline)))
  2. =>
  3. (lambda (module)
  4. ;; Enable completion and input history at the REPL.
  5. ((module-ref module 'activate-readline))))
  6. (else
  7. (display "Consider installing the 'guile-readline' package for
  8. convenient interactive line editing and input history.\n\n")))
  9. (unless (getenv "INSIDE_EMACS")
  10. (cond ((false-if-exception (resolve-interface '(ice-9 colorized)))
  11. =>
  12. (lambda (module)
  13. ;; Enable completion and input history at the REPL.
  14. ((module-ref module 'activate-colorized))))
  15. (else
  16. (display "Consider installing the 'guile-colorized' package
  17. for a colorful Guile experience.\n\n"))))