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

include-ci, alias to include

Browse source
This commit is contained in:
Justin Ethier 2016-11-19 14:33:45 +00:00
parent 4bfece04a3
commit 42d8bc5846
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/read.sld
View file

@ -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