PasteRack.org
Paste # 17009
2024-12-14 11:45:54

Forked from paste # 29314.

Fork as a new paste.

Paste viewed 87 times.


Embed:

fish pict error?

  1. #lang racket
  2. (require pict pict/balloon)
  3. (let ([f (standard-fish 4 2)])
  4.   (pin-balloon (wrap-balloon (text "I am ⊥") 'sw -5 3)
  5.                (cc-superimpose (blank 300 150) f)
  6.                f
  7.                rt-find))

=>

draw-ellipse: contract violation

  expected: (and/c real? (not/c negative?))

  given: -2

  in: the 3rd argument of

      (->m

       real?

       real?

       (and/c real? (not/c negative?))

       (and/c real? (not/c negative?))

       void?)

  contract from: (class record-dc%)

  blaming: <pkgs>/pict-lib/pict/private/pict.rkt

   (assuming the contract is correct)