Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 04:55:04 +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
read-all read-all
include include
include-ci
) )
(begin (begin
@ -32,6 +33,11 @@
(read-all port)))) (read-all port))))
(cdr expr))))))) (cdr expr)))))))
(define-syntax include-ci
(er-macro-transformer
(lambda (expr rename compare)
`(include ,@(cdr expr)))))
(define read cyc-read) (define read cyc-read)
;; Extended information for each input port ;; Extended information for each input port