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

fixed a bug in non-debug language levels

Browse Source 
svn: r8270
This commit is contained in:
Robby Findler 2008-01-09 15:10:15 +00:00
parent cec8fbbd5f
commit 1fe5e608b4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drscheme/private/rep.ss
View File

@ -204,8 +204,8 @@ TODO
(let ([source (srcloc-source srcloc)]
[pos (srcloc-position srcloc)]
[span (srcloc-span srcloc)])
(and source pos span
(cons source (cons pos span)))))
(and source pos span
srcloc)))
srclocs-stack))]
[src-locs (if (exn:srclocs? exn)
((exn:srclocs-accessor exn) exn)