bug#11988: eval-case redefinition?

2012-10-06 Thread Ludovic Courtès
Hi, Sorry for the delay. Daniel Llorens skribis: > I was cleaning up an old script which goes like this: > > (define (eval-case ...) ... val) > > (define var (eval-case ...)) > > This worked from the REPL, but when loading the file with (load > "script"), var was always #. It turns out that (

bug#12095: Protecting pointer on bytevector with guardian does not protect memory

2012-10-06 Thread Ludovic Courtès
Hi, Daniel Hartwig skribis: > (define x (bytevector->pointer (make-bytevector len 1))) > (define a (pointer-address x)) > (display x)(newline) > (my-guardian x) > ;(my-guardian (pointer->bytevector x len)) > (set! x #f) > > (define (dump-struct) > (write (pointer->bytevector (make-pointer a) l

bug#12095: Protecting pointer on bytevector with guardian does not protect memory

2012-10-06 Thread Daniel Hartwig
On 7 October 2012 05:41, Ludovic Courtès wrote: > Hi, > > Daniel Hartwig skribis: > >> (define x (bytevector->pointer (make-bytevector len 1))) >> (define a (pointer-address x)) >> (display x)(newline) >> (my-guardian x) >> ;(my-guardian (pointer->bytevector x len)) >> (set! x #f) >> >> (define (