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

Added new module

Browse source
This commit is contained in:
Justin Ethier 2016-01-24 21:39:14 -05:00
parent 548fce51c0
commit f23c17f8ac
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Makefile
View file

@ -12,6 +12,7 @@ BOOTSTRAP_DIR = ../cyclone-bootstrap
SMODULES = \ SMODULES = \
scheme/base \ scheme/base \
scheme/char \ scheme/char \
scheme/cxr \
scheme/eval \ scheme/eval \
scheme/file \ scheme/file \
scheme/load \ scheme/load \
@ -78,6 +79,7 @@ bootstrap: icyc
cp gc.c $(BOOTSTRAP_DIR) cp gc.c $(BOOTSTRAP_DIR)
cp dispatch.c $(BOOTSTRAP_DIR) cp dispatch.c $(BOOTSTRAP_DIR)
cp scheme/base.c $(BOOTSTRAP_DIR)/scheme cp scheme/base.c $(BOOTSTRAP_DIR)/scheme
cp scheme/cxr.c $(BOOTSTRAP_DIR)/scheme
cp scheme/read.c $(BOOTSTRAP_DIR)/scheme cp scheme/read.c $(BOOTSTRAP_DIR)/scheme
cp scheme/write.c $(BOOTSTRAP_DIR)/scheme cp scheme/write.c $(BOOTSTRAP_DIR)/scheme
cp scheme/char.c $(BOOTSTRAP_DIR)/scheme cp scheme/char.c $(BOOTSTRAP_DIR)/scheme

6
scheme/cxr.sld Normal file
View file

@ -0,0 +1,6 @@
(define-library (scheme cxr)
(export caaaaar)
(begin
;; Non-standard, this is just a placeholder
(define (caaaaar lis)
(car (car (car (car (car lis))))))))