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

*** empty log message ***

Browse Source 
original commit: ee6c2c4fd477a60e305ef7b7f0e0f80e71b7d69f
This commit is contained in:
Scott Owens 2004-01-22 22:47:27 +00:00
parent 6c45ac3a10
commit f18a4ef632
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -174,7 +174,7 @@
;; breaks disabled re-tokenize should be called when lock is not
;; held. When it exits, the lock will be held.
(define/private (re-tokenize in in-start-pos)
(let-values (((type data new-token-start new-token-end) (get-token in)))
(let-values (((lexeme type data new-token-start new-token-end) (get-token in)))
;; breaks must be disabled before the semaphore wait so we can't be
;; broken out of the critical section
(break-enabled #f)
@ -289,7 +289,8 @@
(break-enabled #t)
(with-handlers ((not-break-exn?
(lambda (exn)
(printf "colorer thread: ~s\n" exn)
(parameterize ((print-struct #t))
(printf "colorer thread: ~s\n" exn))
(break-enabled #f)
(semaphore-wait mutex-lock))))
(re-tokenize (open-input-text-editor this current-pos end-pos

8
collects/framework/private/scheme.ss
View File

@ -947,15 +947,15 @@
(|{| |}|))))))
(define (scheme-lexer-wrapper in)
(let-values (((type lex start end) (scheme-lexer in)))
(let-values (((lexeme type paren start end) (scheme-lexer in)))
(cond
((and (eq? type 'symbol)
(hash-table-get (preferences:get 'framework:tabify)
(string->symbol lex)
(string->symbol lexeme)
(lambda () #f)))
(values 'keyword lex start end))
(values lexeme 'keyword paren start end))
(else
(values type lex start end)))))
(values lexeme type paren start end)))))
(define set-mode-mixin
(mixin (-text<%> mode:host-text<%>) ()