Sam,

On the off-chance that the snapshot I used was somehow “stale”:

I have just done a fresh racket install from git;
I have 'raco pkg install -i pict3d'

And retried the test. I still get the type errors.

Tim


On 07/09/16 16:47, Tim Brown wrote:
> :-(
> 
> Latest nightly "snapshot 6.6.0.4--2016-09-07(42f4784/a)" still throws
> the error.
> 
> Tim
> 
> On 07/09/16 15:37, Sam Tobin-Hochstadt wrote:
>> I think this is fixed in the git repository. Can you try a snapshot build 
>> and see if that works?
>>
>> Sam
>>
>> On Wed, Sep 7, 2016 at 10:35 AM Tim Brown <tim.br...@cityc.co.uk 
>> <mailto:tim.br...@cityc.co.uk>> wrote:
>>
>>     Folks (Neil?),
>>
>>     Another type issue, but this time with pict3d.
>>     I am trying to use the following code to display a sphere.
>>     But there seems to be an issue throwing up a warning. A warning
>>     that “will become an error in a future release”. A warning that
>>     also seems to be using up a lot of juice to print itself out.
>>
>>     Has anyone any idea where to improve the type declarations to
>>     suppress this?
>>
>>     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>>     #lang typed/racket/gui
>>     (require pict3d)
>>
>>     (define f (new frame% [label "T"] [width 400] [height 400]))
>>
>>     (new pict3d-canvas% [parent f] [pict3d (sphere origin 1/2)])
>>
>>     (send f show #t)
>>     ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
>>
>>     Generates numerous errors of the form:
>>     ------------------------------------------------------------
>>     cpointer?: contract violation
>>       any-wrap/c: Unable to protect opaque value passed as `Any`
>>       value: #<cpointer>
>>       This warning will become an error in a future release.
>>       in: the 1st argument of
>>           a part of the or/c of
>>           (or/c
>>            struct-predicate-procedure?/c
>>            (-> Any boolean?))
>>       contract from: (interface for cpointer?)
>>       blaming: <pkgs>/pict3d/typed/opengl/ffi-types.rkt
>>        (assuming the contract is correct)
>>       at: <pkgs>/pict3d/typed/opengl/ffi-types.rkt:19.20
>>     ------------------------------------------------------------
>>
>>     ffi-types.rkt:19 is:
>>      ..
>>      17  (require/typed
>>      18   ffi/unsafe
>>     *19   [#:opaque CPointer cpointer?]  ; includes Bytes and other things 
>> that can be used as cpointers
>>      20   [#:opaque CType ctype?]
>>      21   )
>>      ..
>>     which seems perfectly innocuous to me :-/
>>
>>     Tim


-- 
Tim Brown CEng MBCS <tim.br...@cityc.co.uk>
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
                City Computing Limited · www.cityc.co.uk
      City House · Sutton Park Rd · Sutton · Surrey · SM1 2AE · GB
                T:+44 20 8770 2110 · F:+44 20 8770 2130
────────────────────────────────────────────────────────────────────────
City Computing Limited registered in London No:1767817.
Registered Office: City House, Sutton Park Road, Sutton, Surrey, SM1 2AE
VAT No: GB 918 4680 96

-- 
You received this message because you are subscribed to the Google Groups 
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

Reply via email to