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

highlights runtime errors in the teaching languages now

Browse Source 
svn: r7937
This commit is contained in:
Robby Findler 2007-12-10 16:43:42 +00:00
parent eab8008c4f
commit 3fa9f2bd5c
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/lang/htdp-langs.ss
View File

@ -1064,7 +1064,7 @@
[source (car cms)] [source (car cms)]
[pos (cadr cms)] [pos (cadr cms)]
[span (cddr cms)]) [span (cddr cms)])
(if (is-a? source text%) (if (path? source)
(list (make-srcloc source #f #f pos span)) (list (make-srcloc source #f #f pos span))
(loop (cdr cms))))])) (loop (cdr cms))))]))
'()))] '()))]
@ -1085,7 +1085,7 @@
(let ([source (syntax-source source-stx)] (let ([source (syntax-source source-stx)]
[start-position (syntax-position source-stx)] [start-position (syntax-position source-stx)]
[span (syntax-span source-stx)]) [span (syntax-span source-stx)])
(if (and (is-a? source text:basic<%>) (if (and (path? source)
(number? start-position) (number? start-position)
(number? span)) (number? span))
(with-syntax ([expr expr] (with-syntax ([expr expr]