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

*** empty log message ***

Browse Source 
original commit: c7d19bd3ed39d87547fed28f79f7734bd770d21d
This commit is contained in:
Scott Owens 2004-08-09 22:42:01 +00:00
parent 379599ca2c
commit 0b98d9cd33
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/framework/private/color.ss
View File

@ -279,10 +279,12 @@
(with-handlers ((exn:fail? (with-handlers ((exn:fail?
(lambda (exn) (lambda (exn)
(parameterize ((print-struct #t)) (parameterize ((print-struct #t))
(printf "colorer thread: ~s\n" exn)) ((error-display-handler)
(format "exception in colorer thread: ~s" exn)
exn))
(semaphore-wait mutex-lock)))) (semaphore-wait mutex-lock))))
(re-tokenize (open-input-text-editor this current-pos end-pos (re-tokenize (open-input-text-editor this current-pos end-pos
(lambda (x) (values #f 1))) (lambda (x) #f))
current-pos)) current-pos))
(set! up-to-date? #t) (set! up-to-date? #t)
(semaphore-post mutex-lock) (semaphore-post mutex-lock)