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

..

Browse Source 
original commit: a8aefa156af07300b7bba7fb38456c8838907dd0
This commit is contained in:
Robby Findler 2003-09-12 15:48:35 +00:00
parent 9ebd42b945
commit a8d5df792d
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/private/seqcontract.ss
View File

@ -278,8 +278,7 @@ Matthew
(scroll-line-location [(pos)] write-lock)
(num-scroll-lines [()] write-lock)
(find-scroll-line [(location)] write-lock)
(style-has-changed [(style)] write-lock)
]
(style-has-changed [(style)] write-lock)]
[flow-lock
(and (locked-for-flow?)
@ -294,9 +293,7 @@ Matthew
(scroll-line-location [(pos)] flow-lock)
(num-scroll-lines [()] flow-lock)
(find-scroll-line [(location)] flow-lock)
(style-has-changed [(style)] flow-lock)
]
(style-has-changed [(style)] flow-lock)]
[read-lock
(locked-for-read?)])