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

Don't display "trace" as part of the error message.

Browse Source 
This never worked.

svn: r16043
This commit is contained in:
Mike Sperber 2009-09-17 14:38:44 +00:00
parent 3af715fe11
commit 368b491474
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/deinprogramm/contract/contract-test-display.ss
View File

@ -248,7 +248,8 @@
;; make-error-link: text% check-fail exn src editor -> void ;; make-error-link: text% check-fail exn src editor -> void
(define (make-error-link text reason exn dest src-editor) (define (make-error-link text reason exn dest src-editor)
(make-link text reason dest src-editor) (make-link text reason dest src-editor)
(let ((start (send text get-end-position))) ;; the following code never worked
#;(let ((start (send text get-end-position)))
(send text insert (string-constant test-engine-trace-error)) (send text insert (string-constant test-engine-trace-error))
(send text insert " ") (send text insert " ")
(when (and src-editor current-rep) (when (and src-editor current-rep)