Fix windows stack effects

diff --git a/library/compiler/x86/assembler.factor b/library/compiler/x86/assembler.factor
index 0681fc9fde46f9c74c4ef4bcb91e58beb6e6ffe9..ac54e3778fe24ae13e71f81d75930b32041820f5 100644 (file)
--- a/library/compiler/x86/assembler.factor
+++ b/library/compiler/x86/assembler.factor
@@ -146,7 +146,7 @@ M: indirect sib-present?
 
 M: register sib-present? drop f ;
 
-GENERIC: r/m
+GENERIC: r/m ( operand -- n )
 
 M: indirect r/m
     dup sib-present?

diff --git a/library/io/windows/io-internals.factor b/library/io/windows/io-internals.factor
index ace759e07989eba25901687c8a8b87fe53c680be..6b78d8594fd77e06dbe743217d6bc6cb10f918c8 100644 (file)
--- a/library/io/windows/io-internals.factor
+++ b/library/io/windows/io-internals.factor
@@ -10,7 +10,7 @@ SYMBOL: io-queue
 TUPLE: io-queue free-list callbacks ;
 TUPLE: io-callback overlapped quotation stream ;
 
-: expected-error? ( -- bool )
+: expected-error? ( obj -- bool )
     [ 
         ERROR_IO_PENDING ERROR_HANDLE_EOF ERROR_SUCCESS WAIT_TIMEOUT 
         997

diff --git a/library/ui/windows/ui.factor b/library/ui/windows/ui.factor
index 1a467406a9209f79d82911c3f60c5fd3404ee469..e4be50fe78e64830e831e0ac3a6d314962f70b2b 100644 (file)
--- a/library/ui/windows/ui.factor
+++ b/library/ui/windows/ui.factor
@@ -42,7 +42,7 @@ SYMBOL: class-name
     2nip
     dup { 0 0 } = [ 2drop ] [ swap window set-gadget-dim ] if ;
 
-: wm-keydown-codes ( n -- key )
+: wm-keydown-codes ( -- key )
     H{
         { 8 "BACKSPACE" }
         { 9 "TAB" }
@@ -256,7 +256,7 @@ SYMBOL: hWnd
         [ do-events ui-step ] ui-try event-loop
     ] unless ;
 
-: register-wndclassex ( classname wndproc -- )
+: register-wndclassex ( classname wndproc -- class )
     "WNDCLASSEX" <c-object>
     "WNDCLASSEX" c-size over set-WNDCLASSEX-cbSize
     CS_HREDRAW CS_VREDRAW bitor CS_OWNDC bitor over set-WNDCLASSEX-style