From: Chris Hanson Date: Sat, 19 Mar 2005 03:33:21 +0000 (+0000) Subject: Use GUARANTEE-UNPARSER-METHOD. X-Git-Tag: 20090517-FFI~1363 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f6b70fb01da9e184cf9d90e8748d0e1224f7b987;p=mit-scheme.git Use GUARANTEE-UNPARSER-METHOD. --- diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm index dbf77f40e..6d91fe522 100644 --- a/v7/src/runtime/record.scm +++ b/v7/src/runtime/record.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: record.scm,v 1.49 2005/03/19 03:14:31 cph Exp $ +$Id: record.scm,v 1.50 2005/03/19 03:33:21 cph Exp $ Copyright 1989,1990,1991,1993,1994,1996 Massachusetts Institute of Technology Copyright 1997,2002,2003,2004,2005 Massachusetts Institute of Technology @@ -242,9 +242,7 @@ USA. (define set-record-type-unparser-method!/after-boot (named-lambda (set-record-type-unparser-method! record-type method) - (if (not (or (not method) (procedure? method))) - (error:wrong-type-argument method "unparser method" - 'SET-RECORD-TYPE-UNPARSER-METHOD!)) + (guarantee-unparser-method method 'SET-RECORD-TYPE-UNPARSER-METHOD!) (let ((tag (record-type-dispatch-tag record-type))) (remove-generic-procedure-generators unparse-record (list (make-dispatch-tag #f) tag))