mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

* doc/ref/srfi-modules.texi:

Browse source 
* module/srfi/srfi-9/gnu.scm: rename `define-record-printer' to
  `set-record-printer!' to reflect the fact that the printer is set at runtime
This commit is contained in:
No Itisnt 2010-05-25 15:53:24 -05:00
parent e525e4e499
commit 6942d86409
2 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -23,9 +23,7 @@
;;; Code:
(define-module (srfi srfi-9 gnu)
#:export (define-record-printer))
#:export (set-record-printer!))
(define-syntax define-record-printer
(syntax-rules ()
((_ type thunk)
(struct-set! type vtable-index-printer thunk))))
(define (set-record-printer! type thunk)
(struct-set! type vtable-index-printer thunk))