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

updated to new require* macros and procedures

Browse Source 
original commit: a41947b2f07b9b95a0d9dd1eca5234189c61a01c
This commit is contained in:
Robby Findler 1998-04-20 20:49:22 +00:00
parent 5c8ef957a0
commit 909549fcda
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/edit.ss
View File

@ -994,7 +994,7 @@
(lambda () (lambda ()
(let ([frame (get-frame)]) (let ([frame (get-frame)])
(when frame (when frame
((uq-ivar frame ivar-sym)))))) ((ivar/proc frame ivar-sym))))))
tag))]) tag))])
(public (public
[set-anchor [set-anchor

2
collects/mred/keys.ss
View File

@ -60,7 +60,7 @@
(if (is-a? p wx:frame%) (if (is-a? p wx:frame%)
p p
(loop (send p get-parent))))]) (loop (send p get-parent))))])
((uq-ivar frame method)) ((ivar/proc frame method))
#t)))]) #t)))])
(lambda (kmap) (lambda (kmap)
(let* ([map (lambda (key func) (let* ([map (lambda (key func)