suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

reader: handle port whose position moves backwards

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-27 05:46:59 -07:00
parent 586feb6df0
commit ada6b8c5d1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/read/config.rkt
View File

@ -101,7 +101,7 @@
(read-config-line config) (read-config-line config)
(read-config-col config) (read-config-col config)
(read-config-pos config) (read-config-pos config)
(and (read-config-pos config) end-pos (- end-pos (read-config-pos config))))) (and (read-config-pos config) end-pos (max 0 (- end-pos (read-config-pos config))))))
(define (reading-at config line col pos) (define (reading-at config line col pos)
(struct*-copy read-config config (struct*-copy read-config config

2
racket/src/racket/src/startup.inc
View File

@ -46105,7 +46105,7 @@ static const char *startup_source =
"(read-config-line config_1)" "(read-config-line config_1)"
"(read-config-col config_1)" "(read-config-col config_1)"
"(read-config-pos config_1)" "(read-config-pos config_1)"
"(if(read-config-pos config_1)(if end-pos_0(- end-pos_0(read-config-pos config_1)) #f) #f))))))" "(if(read-config-pos config_1)(if end-pos_0(max 0(- end-pos_0(read-config-pos config_1))) #f) #f))))))"
"(define-values" "(define-values"
"(reading-at)" "(reading-at)"
"(lambda(config_2 line_2 col_1 pos_105)" "(lambda(config_2 line_2 col_1 pos_105)"