24 lines
671 B
Plaintext
24 lines
671 B
Plaintext
|
;; Copyright (c) 2009 Derick Eddington. All rights reserved.
|
||
|
|
;; Licensed under an MIT-style license. My license is in the file
|
||
|
|
;; named LICENSE from the original collection this file is distributed
|
||
|
|
;; with. If this file is redistributed with some other collection, my
|
||
|
|
;; license must also be included.
|
||
|
|
|
||
|
|
(library (srfi private platform-features)
|
||
|
|
(export
|
||
|
|
OS-features
|
||
|
|
implementation-features)
|
||
|
|
(import
|
||
|
|
(rnrs)
|
||
|
|
(only (chezscheme) machine-type)
|
||
|
|
(srfi private OS-id-features))
|
||
|
|
|
||
|
|
(define (OS-features)
|
||
|
|
(OS-id-features
|
||
|
|
(symbol->string (machine-type))
|
||
|
|
'(("i3la" linux posix))))
|
||
|
|
|
||
|
|
(define (implementation-features)
|
||
|
|
'(chezscheme))
|
||
|
|
)
|