From 1450d2520e74d6cfba40e33e0990afdea237275d Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 17 Dec 2018 12:54:20 -0500
Subject: [PATCH] Added placeholder code

---
 cyclone.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/cyclone.scm b/cyclone.scm
index 0a8f34a5..f286e4ce 100644
--- a/cyclone.scm
+++ b/cyclone.scm
@@ -24,6 +24,14 @@
 
 (define *optimization-level* 2) ;; Default level
 
+; Placeholder for future enhancement to show elapsed time by phase:
+;(define *start* (current-second))
+;(define (elapsed label)
+;  (display "Elapsed is " (current-error-port))
+;  (display (- (current-second) *start*) (current-error-port))
+;  (display (string-append " at " label) (current-error-port))
+;  (newline (current-error-port)))
+
 ;; Code emission.
   
 ; c-compile-and-emit : (string -> A) exp -> void