From 42d8bc58468dddeae44d1733654de97f82d7e1f2 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sat, 19 Nov 2016 14:33:45 +0000
Subject: [PATCH] include-ci, alias to include

---
 scheme/read.sld | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/scheme/read.sld b/scheme/read.sld
index 47f35c46..f673cead 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -14,6 +14,7 @@
     read
     read-all
     include
+    include-ci
   )
   (begin
 
@@ -32,6 +33,11 @@
                 (read-all port))))
           (cdr expr)))))))
 
+(define-syntax include-ci
+  (er-macro-transformer
+   (lambda (expr rename compare)
+    `(include ,@(cdr expr)))))
+
 (define read cyc-read)
 
 ;; Extended information for each input port