diff options
Diffstat (limited to 'module/srfi/srfi-9')
-rw-r--r-- | module/srfi/srfi-9/gnu.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/srfi/srfi-9/gnu.scm b/module/srfi/srfi-9/gnu.scm index eb3506487..219bcdebb 100644 --- a/module/srfi/srfi-9/gnu.scm +++ b/module/srfi/srfi-9/gnu.scm @@ -30,9 +30,9 @@ set-field set-fields)) -(define (set-record-type-printer! type thunk) - "Set a custom printer THUNK for TYPE." - (struct-set! type vtable-index-printer thunk)) +(define (set-record-type-printer! type proc) + "Set PROC as the custom printer for TYPE." + (struct-set! type vtable-index-printer proc)) (define-syntax-rule (define-immutable-record-type name ctor pred fields ...) ((@@ (srfi srfi-9) %define-record-type) |