Re: [PATCH] Performance improvement for R6RS records

[Andy Wingo]

Hi Julian,

On Sun 19 Sep 2010 02:20, Julian Graham <address@hidden> writes:

>    (define (record-internal? obj)
> -    (and (struct? obj)
> -      (let* ((vtable (struct-vtable obj))
> -             (layout (symbol->string
> -                      (struct-ref vtable vtable-index-layout))))
> -        (and (>= (string-length layout) 4)
> -             (let ((rtd (struct-ref obj record-index-rtd)))
> -               (and (record-type-descriptor? rtd)))))))
> +    (and (struct? obj) (eq? (struct-vtable obj) record-vtable)))

Is it possible to keep the current flat record layout, and change this
check to be:

  (define (record-internal? obj)
    (and (struct? obj)
         (eq? (struct-vtable (struct-vtable obj))
              record-type-vtable)))

What kind of performance do you get there?

Andy
-- 
http://wingolog.org/