From 9c6926584b31e55b55779a8979092b93e9bdce06 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Mon, 10 Aug 2020 12:02:38 +0200 Subject: [PATCH] .guile: Add mytime macro. --- .guile | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 .guile 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)))