From bf932472f1b5f0eec9f960d3c2518cf9ceae06e3 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 18 Jul 2016 23:09:29 -0400
Subject: [PATCH] Externalize compiler version

---
 scheme/base.sld           | 17 +++++++++++++----
 scheme/cyclone/common.sld |  6 +++++-
 2 files changed, 18 insertions(+), 5 deletions(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index 6b19b3de..c4e51d32 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -7,7 +7,7 @@
 ;;;; This module contains the base library from r7rs.
 ;;;;
 (define-library (scheme base)
-  ;; In the future, may include this here: (include "../srfi/9.scm")
+  (import (scheme cyclone common))
   (export
     cons-source
     syntax-rules
@@ -133,6 +133,7 @@
     input-port-open?
     output-port-open?
     features
+    Cyc-version
     any
     every
     and
@@ -209,9 +210,17 @@
   )
   (begin
     ;; Features implemented by this Scheme
-    (define (features) '(cyclone r7rs exact-closed 
-                         ieee-float
-                         posix))
+    (define (features) 
+      (cons 
+        'cyclone
+        (cons
+          (string->symbol *version-number*)
+          '(r7rs 
+            ;exact-closed 
+            ieee-float
+            posix))))
+
+    (define (Cyc-version) *version-number*)
 
     (define-syntax and
       (er-macro-transformer
diff --git a/scheme/cyclone/common.sld b/scheme/cyclone/common.sld
index 78789431..50298824 100644
--- a/scheme/cyclone/common.sld
+++ b/scheme/cyclone/common.sld
@@ -10,10 +10,14 @@
   (export 
     *Cyc-version-banner*
     *version*
+    *version-number*
+    *version-name*
     *version-banner*
     *c-file-header-comment*)
   (begin
-(define *version* "0.1.4 (alpha)")
+(define *version-number* "0.1.4")
+(define *version-name* "alpha")
+(define *version* (string-append *version-number* " (" *version-name* ")"))
 
 (define *version-banner* 
  (string-append "