Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 19:56:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added TODO's, start to flesh out changes

Browse source
This commit is contained in:
Justin Ethier 2020-07-15 23:01:51 -04:00
parent c767f36430
commit 7751464294
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

@ -66,6 +66,10 @@
(read-error fp "unexpected closing parenthesis") (read-error fp "unexpected closing parenthesis")
result))))) result)))))
;; TODO: read given file, collecting source location information so we
;; can give meaningful compiler error messages
;; read-all/source -> port -> filename
;; 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)
@ -142,6 +146,7 @@
(Cyc-opaque-unsafe-string->number token)) (Cyc-opaque-unsafe-string->number token))
;; Open paren, start read loop ;; Open paren, start read loop
((Cyc-opaque-unsafe-eq? token #\() ((Cyc-opaque-unsafe-eq? token #\()
;; TODO: save line number
(let loop ((lis '()) (let loop ((lis '())
(t (parse fp))) (t (parse fp)))
(cond (cond
@ -151,6 +156,8 @@
(if (and (> (length lis) 2) (if (and (> (length lis) 2)
(equal? (cadr lis) *sym-dot*)) (equal? (cadr lis) *sym-dot*))
(->dotted-list (reverse lis)) (->dotted-list (reverse lis))
;; TODO: call code here to save line num (only if arg != #f),
;; want to do this if pair w/car of symbol
(reverse lis))) (reverse lis)))
(else (else
(loop (cons t lis) (parse fp)))))) (loop (cons t lis) (parse fp))))))