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

fix bug in build-source-location

Browse Source 
closes #1605
This commit is contained in:
Robby Findler 2017-02-10 20:41:58 -06:00
parent 6632beeca9
commit 0ace11ddcd
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/racket-test-core/tests/racket/srcloc.rktl
View File

@ -1,4 +1,3 @@
(load-relative "../racket/loadtest.rktl")
(Section 'srcloc)
@ -302,4 +301,11 @@
(test "::3: " source-location->prefix (datum->syntax #f null (list #f #f #f 3 #f)))
(test "::3-7: " source-location->prefix (datum->syntax #f null (list #f #f #f 3 4)))
(test (srcloc 'm #f #f #f #f)
build-source-location (srcloc 'm #f #f #f 0) (srcloc 'm #f #f #f 0))
(test (srcloc 'm 1 2 3 0)
build-source-location (srcloc 'm 1 2 3 0) (srcloc 'm #f #f #f 0))
(test (srcloc 'm 1 2 3 0)
build-source-location (srcloc 'm #f #f #f 0) (srcloc 'm 1 2 3 0))
(report-errs)

5
racket/collects/syntax/srcloc.rkt
View File

@ -243,7 +243,10 @@
(values pos (- end pos)))]
[span1 (values pos (- (+ pos1 span1) pos))]
[span2 (values pos (- (+ pos2 span2) pos))]
[else (values pos #f)]))])])
[else (values pos #f)]))]
[pos1 (values pos1 span1)]
[pos2 (values pos2 span2)]
[else (values #f #f)])])
(good #f src line col pos span))
(good #f #f #f #f #f #f)))