Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Externalize compiler version

Browse source
This commit is contained in:
Justin Ethier 2016-07-18 23:09:29 -04:00
parent cf7fd6d782
commit bf932472f1
2 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
scheme/base.sld
View file

@ -7,7 +7,7 @@
;;;; This module contains the base library from r7rs. ;;;; This module contains the base library from r7rs.
;;;; ;;;;
(define-library (scheme base) (define-library (scheme base)
;; In the future, may include this here: (include "../srfi/9.scm") (import (scheme cyclone common))
(export (export
cons-source cons-source
syntax-rules syntax-rules
@ -133,6 +133,7 @@
input-port-open? input-port-open?
output-port-open? output-port-open?
features features
Cyc-version
any any
every every
and and
@ -209,9 +210,17 @@
) )
(begin (begin
;; Features implemented by this Scheme ;; Features implemented by this Scheme
(define (features) '(cyclone r7rs exact-closed (define (features)
ieee-float (cons
posix)) 'cyclone
(cons
(string->symbol *version-number*)
'(r7rs
;exact-closed
ieee-float
posix))))
(define (Cyc-version) *version-number*)
(define-syntax and (define-syntax and
(er-macro-transformer (er-macro-transformer

6
scheme/cyclone/common.sld
View file

@ -10,10 +10,14 @@
(export (export
*Cyc-version-banner* *Cyc-version-banner*
*version* *version*
*version-number*
*version-name*
*version-banner* *version-banner*
*c-file-header-comment*) *c-file-header-comment*)
(begin (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* (define *version-banner*
(string-append " (string-append "