From f23c17f8accebb2f9ffa0a6da928d3a8518f2240 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sun, 24 Jan 2016 21:39:14 -0500 Subject: [PATCH] Added new module --- Makefile | 2 ++ scheme/cxr.sld | 6 ++++++ 2 files changed, 8 insertions(+) create mode 100644 scheme/cxr.sld diff --git a/Makefile b/Makefile index cfdf5d9a..b3300336 100644 --- a/Makefile +++ b/Makefile @@ -12,6 +12,7 @@ BOOTSTRAP_DIR = ../cyclone-bootstrap SMODULES = \ scheme/base \ scheme/char \ + scheme/cxr \ scheme/eval \ scheme/file \ scheme/load \ @@ -78,6 +79,7 @@ bootstrap: icyc cp gc.c $(BOOTSTRAP_DIR) cp dispatch.c $(BOOTSTRAP_DIR) cp scheme/base.c $(BOOTSTRAP_DIR)/scheme + cp scheme/cxr.c $(BOOTSTRAP_DIR)/scheme cp scheme/read.c $(BOOTSTRAP_DIR)/scheme cp scheme/write.c $(BOOTSTRAP_DIR)/scheme cp scheme/char.c $(BOOTSTRAP_DIR)/scheme diff --git a/scheme/cxr.sld b/scheme/cxr.sld new file mode 100644 index 00000000..d0b8a2f6 --- /dev/null +++ b/scheme/cxr.sld @@ -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))))))))