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

WIP

Browse source
This commit is contained in:
Justin Ethier 2020-07-17 23:34:46 -04:00
parent cb08f60ec2
commit f4ac3c7cb7
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/read.sld
View file

@ -15,6 +15,7 @@
read-all read-all
read-all/source read-all/source
*source-loc-lis* *source-loc-lis*
read-test
include include
include-ci) include-ci)
(inline (inline
@ -83,6 +84,12 @@
(define (read-all/source port filename) (define (read-all/source port filename)
(read-all port store-source-info! filename)) (read-all port store-source-info! filename))
;; TODO: assume the source-loc-lis needs to be part of (scheme base) so that those macros can use them
(define-syntax read-test
(er-macro-transformer
(lambda (expr rename compare)
(error "read test error" (assoc expr *source-loc-lis*) *source-loc-lis*))))
;; read-all -> port -> [objects] ;; read-all -> port -> [objects]
(define (read-all . args) (define (read-all . args)
(let* ((fp (if (null? args) (let* ((fp (if (null? args)