PasteRack.org
Paste # 91190
2018-11-26 06:45:12

Fork as a new paste.

Paste viewed 578 times.


Embed:

#lang racket
(require hidapi)

hid-open: broke its own contract
  promised: a procedure that accepts the #:product-id keyword argument
  produced: #<procedure:...nsafe/define.rkt:13:4>
  ...nsafe/define.rkt:13:4 accepts: 0 or arbitrarily many more arguments
  in: (->
       #:product-id
       integer?
       #:serial-number
       string?
       #:vendor-id
       integer?
       (or/c hid-device? #f))
  contract from: <pkgs>/hidapi/main.rkt
  blaming: <pkgs>/hidapi/main.rkt
   (assuming the contract is correct)
  at: <pkgs>/hidapi/main.rkt:65.3
  context...:
   /usr/share/racket/collects/racket/contract/private/blame.rkt:347:0: raise-blame-error16
   /usr/share/racket/collects/racket/contract/private/provide.rkt:431:0: do-partial-app
   "/home/joe/Trustica/git/hidapi/main.rkt": [running body]
   temp37_0
   for-loop
   run-module-instance!125
   for-loop
   [repeats 1 more time]
   run-module-instance!125
   perform-require!78