Fix overly zealous Objective C method stub caching

slava 2006-05-29 20:31:05 +00:00
parent f254d719ea
commit 9e4962dec4
2 changed files with 3 additions and 2 deletions

View File

@ -5,6 +5,7 @@
] ]
- x11: rollover highlight is not reliable - x11: rollover highlight is not reliable
- x11: window positioning not reliable
+ httpd: + httpd:
- outliners don't work - outliners don't work
- browser responder doesn't work - browser responder doesn't work

View File

@ -27,10 +27,10 @@ H{ } clone super-msg-senders set-global
: (cache-stub) ( method function hash -- word ) : (cache-stub) ( method function hash -- word )
[ [
over second get dup [ over get dup [
2nip 2nip
] [ ] [
drop over >r sender-stub dup r> second set drop over >r sender-stub dup r> set
] if ] if
] bind ; ] bind ;