diff options
Diffstat (limited to 'module/rnrs')
-rw-r--r-- | module/rnrs/records/procedural.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/module/rnrs/records/procedural.scm b/module/rnrs/records/procedural.scm index 69c5d1c56..cbcd4e5ce 100644 --- a/module/rnrs/records/procedural.scm +++ b/module/rnrs/records/procedural.scm @@ -80,13 +80,13 @@ (define vtable-base-layout (symbol->string (struct-layout (make-vtable "")))) (define record-type-vtable - (make-vtable (string-append vtable-base-layout "prprprprprprprprprpr") + (make-vtable (string-append vtable-base-layout "pwpwpwpwpwpwpwpwpwpw") (lambda (obj port) (simple-format port "#<r6rs:record-type:~A>" (struct-ref obj rtd-index-name))))) (define record-constructor-vtable - (make-vtable "prprpr" + (make-vtable "pwpwpw" (lambda (obj port) (simple-format port "#<r6rs:record-constructor:~A>" (struct-ref (struct-ref obj rctd-index-rtd) @@ -97,7 +97,7 @@ (define (make-record-type-descriptor name parent uid sealed? opaque? fields) (define fields-pair (let loop ((field-list (vector->list fields)) - (layout-sym 'pr) + (layout-sym 'pw) (layout-bit-field 0) (counter 0)) (if (null? field-list) @@ -105,7 +105,7 @@ (case (caar field-list) ((immutable) (loop (cdr field-list) - (symbol-append layout-sym 'pr) + (symbol-append layout-sym 'pw) layout-bit-field (+ counter 1))) ((mutable) |