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

Issue #280 - Cyc-add-feature!

Browse source
This commit is contained in:
Justin Ethier 2018-11-10 06:39:13 -05:00
parent 7d52c4de35
commit 74e56aeb2f
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
scheme/base.sld
View file

@ -148,6 +148,7 @@
open-input-bytevector open-input-bytevector
open-output-bytevector open-output-bytevector
features features
Cyc-add-feature!
Cyc-version Cyc-version
any any
every every
@ -237,10 +238,17 @@
(cons (cons
(string->symbol (string->symbol
(string-append "version-" *version-number*)) (string-append "version-" *version-number*))
'(r7rs *other-features*)))
ieee-float
full-unicode (define *other-features*
posix)))) '(r7rs
ieee-float
full-unicode
posix))
;; Designed for internal use only, don't call this in user code!!
(define (Cyc-add-feature! sym)
(set! *other-features* (cons sym *other-features*)))
(define (Cyc-version) *version-number*) (define (Cyc-version) *version-number*)