.guile: Add mytime macro.

.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)))