diff --git a/.guile b/.guile new file mode 100644 index 00000000..8d65593b --- /dev/null +++ b/.guile @@ -0,0 +1,26 @@ +;;; -*- 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")))) + +;; TODO: Import (debugging time) +(use-modules (debugging time)) +(define-macro (mytime expr . others) + `(let ((internal-time-units-per-second 1000000000.)) + (time ,expr ,@others)))