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

Added SRFI 128

Browse source
This commit is contained in:
Justin Ethier 2016-10-12 17:22:14 -04:00
parent 49c8fa26b8
commit 5aa80fee84
3 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
CHANGELOG.md
View file

@ -7,7 +7,7 @@ TODO: macro improvements (ref trans.) to support SRFI 128
Features: Features:
- Added support for SRFI 106: a basic socket interface. - Added support for SRFI 106: a basic socket interface, and SRFI 128: Comparators.
- Improved library support to recognize all of the import set forms: `only`, `except`, `prefix`, and `rename`. - Improved library support to recognize all of the import set forms: `only`, `except`, `prefix`, and `rename`.
- Allow explicit renaming macros to be declared interactively. This is the first limited support for calling `define-syntax` from `eval`. - Allow explicit renaming macros to be declared interactively. This is the first limited support for calling `define-syntax` from `eval`.
- Added the `get-environment-variables` function from R7RS. - Added the `get-environment-variables` function from R7RS.

3
Makefile
View file

@ -44,6 +44,7 @@ SMODULES = \
srfi/106 \ srfi/106 \
srfi/111 \ srfi/111 \
srfi/117 \ srfi/117 \
srfi/128 \
srfi/132 \ srfi/132 \
srfi/133 srfi/133
SLDFILES = $(addsuffix .sld, $(SMODULES)) SLDFILES = $(addsuffix .sld, $(SMODULES))
@ -154,6 +155,8 @@ bootstrap: icyc
cp srfi/106.c $(BOOTSTRAP_DIR)/srfi cp srfi/106.c $(BOOTSTRAP_DIR)/srfi
cp srfi/111.c $(BOOTSTRAP_DIR)/srfi cp srfi/111.c $(BOOTSTRAP_DIR)/srfi
cp srfi/117.c $(BOOTSTRAP_DIR)/srfi cp srfi/117.c $(BOOTSTRAP_DIR)/srfi
cp srfi/128.c $(BOOTSTRAP_DIR)/srfi
cp srfi/128.meta $(BOOTSTRAP_DIR)/srfi
cp srfi/132.c $(BOOTSTRAP_DIR)/srfi cp srfi/132.c $(BOOTSTRAP_DIR)/srfi
cp srfi/list-queues/*.scm $(BOOTSTRAP_DIR)/srfi/list-queues cp srfi/list-queues/*.scm $(BOOTSTRAP_DIR)/srfi/list-queues
cp srfi/sorting/*.scm $(BOOTSTRAP_DIR)/srfi/sorting cp srfi/sorting/*.scm $(BOOTSTRAP_DIR)/srfi/sorting

6
srfi/128.sld
View file

@ -1,4 +1,4 @@
(define-library (comparators) (define-library (srfi 128) ;comparators)
(import (scheme base)) (import (scheme base))
(import (scheme case-lambda)) (import (scheme case-lambda))
(import (scheme char) (scheme complex) (scheme inexact)) (import (scheme char) (scheme complex) (scheme inexact))
@ -16,6 +16,6 @@
(export =? <? >? <=? >=?) (export =? <? >? <=? >=?)
(export comparator-if<=>) (export comparator-if<=>)
(export %salt%) ;; Temporary workaround since we cannot preserve referential transparency for this (export %salt%) ;; Temporary workaround since we cannot preserve referential transparency for this
(include "comparators-impl.scm") (include "comparators/comparators-impl.scm")
(include "default.scm") (include "comparators/default.scm")
) )