From 3fa9f2bd5c8fa647ed1bc5031a95823bf6fe308e Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 10 Dec 2007 16:43:42 +0000 Subject: [PATCH] highlights runtime errors in the teaching languages now svn: r7937 --- collects/lang/htdp-langs.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.ss index 3ab8d0fec8..e0b778cbeb 100644 --- a/collects/lang/htdp-langs.ss +++ b/collects/lang/htdp-langs.ss @@ -1064,7 +1064,7 @@ [source (car cms)] [pos (cadr cms)] [span (cddr cms)]) - (if (is-a? source text%) + (if (path? source) (list (make-srcloc source #f #f pos span)) (loop (cdr cms))))])) '()))] @@ -1085,7 +1085,7 @@ (let ([source (syntax-source source-stx)] [start-position (syntax-position source-stx)] [span (syntax-span source-stx)]) - (if (and (is-a? source text:basic<%>) + (if (and (path? source) (number? start-position) (number? span)) (with-syntax ([expr expr]