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

removed printfs

Browse Source 
svn: r7816
This commit is contained in:
Robby Findler 2007-11-22 17:11:09 +00:00
parent 5af14c4902
commit 27f7f770b8
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drscheme/syncheck.ss
View File

@ -1597,7 +1597,7 @@ If the namespace does not, they are colored the unbound color.
(add-id varrefs sexp))] (add-id varrefs sexp))]
[_ [_
(begin (begin
#;
(printf "unknown stx: ~e datum: ~e source: ~e\n" (printf "unknown stx: ~e datum: ~e source: ~e\n"
sexp sexp
(and (syntax? sexp) (and (syntax? sexp)
@ -2275,7 +2275,6 @@ If the namespace does not, they are colored the unbound color.
;; find-source : definitions-text source -> editor or false ;; find-source : definitions-text source -> editor or false
(define (find-source-editor stx) (define (find-source-editor stx)
(printf "looking for ~s ~s\n" (syntax-source stx) (syntax->datum stx))
(let ([defs-text (get-defs-text)]) (let ([defs-text (get-defs-text)])
(and defs-text (and defs-text
(let txt-loop ([text defs-text]) (let txt-loop ([text defs-text])