Change reference from UNPARSER-METHOD? to PROCEDURE? so that cold-load

will work with interpreted code.  The error test this implements isn't
very important anyway.

diff --git a/v7/src/runtime/record.scm b/v7/src/runtime/record.scm
index 1f8f899fa607970037ecfd8f9f827419da5fe8b0..840b0eef6a7f98112c665b6edbb50296ecbe5dc6 100644 (file)
--- a/v7/src/runtime/record.scm
+++ b/v7/src/runtime/record.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: record.scm,v 1.18 1992/12/10 01:25:37 cph Exp $
+$Id: record.scm,v 1.19 1992/12/17 00:05:34 cph Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -139,7 +139,7 @@ MIT in each case. |#
 
 (define (set-record-type-unparser-method! record-type method)
   (guarantee-record-type record-type 'SET-RECORD-TYPE-UNPARSER-METHOD!)
-  (if (not (or (not method) (unparser-method? method)))
+  (if (not (or (not method) (procedure? method)))
       (error:wrong-type-argument method "unparser method"
                                 'SET-RECORD-TYPE-UNPARSER-METHOD!))
   (%record-set! record-type 4 method))