From 020d1674d30f901626c3690c67df055403042e68 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 21 Dec 1993 23:42:49 +0000 Subject: [PATCH] Reference traps must be fasdumpable. --- v7/src/runtime/urtrap.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/v7/src/runtime/urtrap.scm b/v7/src/runtime/urtrap.scm index d41396293..09e914930 100644 --- 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)) (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) -- 2.25.1