Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 09:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added placeholder code

Browse source
This commit is contained in:
Justin Ethier 2018-12-17 12:54:20 -05:00
parent 68e91f2408
commit 1450d2520e
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
cyclone.scm
View file

@ -24,6 +24,14 @@
(define *optimization-level* 2) ;; Default level (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. ;; Code emission.
; c-compile-and-emit : (string -> A) exp -> void ; c-compile-and-emit : (string -> A) exp -> void