And here's an even smaller one along the same lines:
#lang racket/base
(define h '#hash(("mail-server" . "smtp.sendgrid.net")))
(define h2 (hash "mail-server" "smtp.sendgrid.net"))
(chaperone-of? h2 h)
(equal? h2 h)
Note that the `equal?` comparison always works, the bug appears to be
just in `chaperone-of?`.
Sam
On Thu, Sep 8, 2016 at 5:43 PM, Robby Findler
<ro...@eecs.northwestern.edu> wrote:
> (oh, and removing the require line also has that property)
>
> Robby
>
> On Thu, Sep 8, 2016 at 4:42 PM, Robby Findler
> <ro...@eecs.northwestern.edu> wrote:
>> Here's a program that, when run prints #t or #f depending on whether
>> or not there is a .zo file.
>>
>> #lang racket/base
>> (require racket/contract)
>>
>> (define h '#hash(("mail-server" . "smtp.sendgrid.net")))
>>
>> (define h2
>> (for/fold ([h h]) ([(k v) (in-hash h)])
>> (hash-set h k v)))
>>
>> (chaperone-of? h2 h)
>>
>> Robby
>
> --
> 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.
--
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.
