Remove commented-out code

release
Slava Pestov 2007-10-28 01:21:26 -04:00
parent 738672be9f
commit da4c77b445
1 changed files with 0 additions and 3 deletions

View File

@ -306,8 +306,6 @@ SYMBOL: hWnd
"uint" { "void*" "uint" "long" "long" } "stdcall" [
[
pick
! "Message: " write dup get-windows-message-name write
! " " write dup unparse print flush
{
{ [ dup WM_CLOSE = ] [ drop handle-wm-close 0 ] }
{ [ dup WM_PAINT = ]
@ -340,7 +338,6 @@ SYMBOL: hWnd
{ [ t ] [ drop DefWindowProc ] }
} cond
] ui-try
! "finished handling message" print .s flush
] alien-callback ;
: do-events ( -- )