Reference traps must be fasdumpable.

diff --git a/v7/src/runtime/urtrap.scm b/v7/src/runtime/urtrap.scm
index d41396293231d1481254ddb17a87a788c95f19d4..09e914930bcd1e267d86f4b3ffbdc878039ae1bc 100644 (file)
--- a/v7/src/runtime/urtrap.scm
+++ b/v7/src/runtime/urtrap.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: urtrap.scm,v 14.3 1993/10/21 14:52:44 cph Exp $
+$Id: urtrap.scm,v 14.4 1993/12/21 23:42:49 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -38,6 +38,9 @@ MIT in each case. |#
 (declare (usual-integrations))
 \f
 (define-structure (reference-trap
+                  (type vector)
+                  (named ((ucode-primitive string->symbol)
+                          "#[(runtime reference-trap)reference-trap]"))
                   (print-procedure
                    (standard-unparser-method 'REFERENCE-TRAP
                      (lambda (trap port)