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

ffi/com: fix argument checking in com-get-property

Browse Source 
Closes #2470
This commit is contained in:
Matthew Flatt 2019-02-27 16:15:28 -07:00
parent 0fefd6936a
commit 68312e43bd
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/ffi/unsafe/com.rkt
View File

@ -2055,7 +2055,11 @@
(define (follow-chain who obj names len)
(for ([s (in-list names)]
[i (in-range len)])
(unless (string? s) (raise-type-error who "string" s)))
(unless (or (string? s)
(and (list? s)
(pair? s)
(string? (car s))))
(raise-argument-error who "(or/c string? (cons/c string? list?))" s)))
(define-values (target-obj release?)
(for/fold ([obj obj] [release? #f]) ([i (in-range (sub1 len))]
[s (in-list names)])
@ -2078,7 +2082,7 @@
(string? (car name)))
(do-com-invoke 'com-get-property obj (car name) (cdr name) INVOKE_PROPERTYGET)]
[else
(raise-argument-error 'com-get-property "(or/c string? (cons/c string? list))"
(raise-argument-error 'com-get-property "(or/c string? (cons/c string? list?))"
name)])]
[(obj name1 . more-names)
(check-com-obj 'com-get-property obj)