mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

doc: Fix typo in `set-record-type-printer!' doc.

Browse source 
* module/srfi/srfi-9/gnu.scm (set-record-type-printer!): Change the
  parameter name to `proc'.
* doc/ref/api-compound.texi (SRFI-9 Records): Update accordingly.
This commit is contained in:
Ludovic Courtès 2012-11-17 15:34:49 +01:00
parent 3ae5a02f1d
commit 67768115d7
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
doc/ref/api-compound.texi
View file

@ -2381,9 +2381,9 @@ You may use @code{set-record-type-printer!} to customize the default printing
behavior of records. This is a Guile extension and is not part of SRFI-9. It behavior of records. This is a Guile extension and is not part of SRFI-9. It
is located in the @nicode{(srfi srfi-9 gnu)} module. is located in the @nicode{(srfi srfi-9 gnu)} module.
@deffn {Scheme Syntax} set-record-type-printer! name thunk @deffn {Scheme Syntax} set-record-type-printer! name proc
Where @var{type} corresponds to the first argument of @code{define-record-type}, Where @var{type} corresponds to the first argument of @code{define-record-type},
and @var{thunk} is a procedure accepting two arguments, the record to print, and and @var{proc} is a procedure accepting two arguments, the record to print, and
an output port. an output port.
@end deffn @end deffn

6
module/srfi/srfi-9/gnu.scm
View file

@ -30,9 +30,9 @@
set-field set-field
set-fields)) set-fields))
(define (set-record-type-printer! type thunk) (define (set-record-type-printer! type proc)
"Set a custom printer THUNK for TYPE." "Set PROC as the custom printer for TYPE."
(struct-set! type vtable-index-printer thunk)) (struct-set! type vtable-index-printer proc))
(define-syntax-rule (define-immutable-record-type name ctor pred fields ...) (define-syntax-rule (define-immutable-record-type name ctor pred fields ...)
((@@ (srfi srfi-9) %define-record-type) ((@@ (srfi srfi-9) %define-record-type)