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

Added datum comments

Browse source
This commit is contained in:
Justin Ethier 2016-03-24 23:17:42 -04:00
parent 8b43a0d4ac
commit 2fe66e08c7
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
docs/Scheme-Language-Compliance.md
View file

@ -4,7 +4,7 @@ This is the status of Scheme programming language features implemented from the
Section | Status | Comments Section | Status | Comments
------- | ------ | --------- ------- | ------ | ---------
2.2 Whitespace and comments | Yes | No datum comments 2.2 Whitespace and comments | Yes |
2.3 Other notations | Yes | 2.3 Other notations | Yes |
2.4 Datum labels | No | 2.4 Datum labels | No |
3.1 Variables, syntactic keywords, and regions | Yes | 3.1 Variables, syntactic keywords, and regions | Yes |

11
scheme/read.sld
View file

@ -386,6 +386,17 @@
(if all? (if all?
(parse fp '() new-toks all? #f parens ptbl) (parse fp '() new-toks all? #f parens ptbl)
(car new-toks)))) (car new-toks))))
;; Datum comment
((eq? #\; next-c)
; Read and discard next datum
(parse fp '() '() #f #f 0 ptbl)
(cond
((and (not all?) (not (null? tok)))
;; Reached a terminal char, read out previous token
(in-port:set-buf! ptbl c)
(car (add-tok (->tok tok) toks)))
(else
(parse fp tok toks all? #f parens ptbl))))
(else (else
(parse-error "Unhandled input sequence" (parse-error "Unhandled input sequence"
(in-port:get-lnum ptbl) (in-port:get-lnum ptbl)