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

win32: minor repair to single-instance check

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-25 08:45:30 -07:00
parent 064492d4b8
commit 0ef5a01c9b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wx/win32/window.rkt
View File

@ -668,8 +668,8 @@
[guid-len (bytes-length GRACKET_GUID)] [guid-len (bytes-length GRACKET_GUID)]
[data-len (COPYDATASTRUCT-cbData cd)]) [data-len (COPYDATASTRUCT-cbData cd)])
(when (and (data-len (when (and (data-len
. > . . >= .
(+ guid-len (ctype-sizeof _DWORD))) (+ guid-len 4 (ctype-sizeof _DWORD)))
(bytes=? GRACKET_GUID (bytes=? GRACKET_GUID
(scheme_make_sized_byte_string data (scheme_make_sized_byte_string data
guid-len guid-len