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

*** empty log message ***

Browse Source 
original commit: 4e889a6f2a02673a8c738f05283aaa34298df938
This commit is contained in:
Scott Owens 2004-10-23 00:34:14 +00:00
parent 92a2018aea
commit 3c7cbf4155
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -200,7 +200,11 @@
(lambda () (lambda ()
(change-style color sp ep #f))) (change-style color sp ep #f)))
colors))) colors)))
(insert-last! tokens (new token-tree% (length len) (data type))) ; Using the non-spec version takes 3 times as long as the spec
; version. In other words, the new greatly outweighs the tree
; operations.
;(insert-last! tokens (new token-tree% (length len) (data type)))
(insert-last-spec! tokens len type)
(send parens add-token data len) (send parens add-token data len)
(cond (cond
((and (not (send invalid-tokens is-empty?)) ((and (not (send invalid-tokens is-empty?))