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

fucked up!

Browse Source 
original commit: 9f1f24d036d2442ad364d9ea82b478b94299ffc1
This commit is contained in:
Robby Findler 1998-03-12 18:04:31 +00:00
parent 1ade9da766
commit 17ccfaf87b
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/mred/edit.ss
View File

@ -132,7 +132,7 @@
[edit-sequence-queue null]
[edit-sequence-ht (make-hash-table)])
(public
[edit-sequence-counter 0]
[local-edit-sequence? #f]
[run-after-edit-sequence
(rec run-after-edit-sequence
(case-lambda
@ -164,16 +164,10 @@
[on-edit-sequence
(lambda ()
(super-on-edit-sequence)
(set! edit-sequence-counter (+ edit-sequence-counter 1)))]
(set! local-edit-sequence? #t))]
[after-edit-sequence
(lambda ()
(set! edit-sequence-counter (- edit-sequence-counter 1))
(mred:debug:printf 'lock-icon
"after edit sequence (count: ~a)"
edit-sequence-counter)
(when (< edit-sequence-counter 0)
(error 'after-edit-sequence
"extra call to after-edit-sequence"))
(set! local-edit-sequence? #f)
(super-after-edit-sequence)
(let ([queue edit-sequence-queue]
[ht edit-sequence-ht]