From 5938d034ecd90a9cfd1d476861aff8e2f1ef6f7b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 13 Apr 1987 23:59:26 +0000
Subject: [PATCH] Add `set-current-history!' to list of unsafe primitives.

---
 v7/src/compiler/base/utils.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm
index 404d3262e..6353b42ef 100644
--- a/v7/src/compiler/base/utils.scm
+++ b/v7/src/compiler/base/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.83 1987/04/13 19:25:31 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/utils.scm,v 1.84 1987/04/13 23:59:26 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -231,6 +231,7 @@ MIT in each case. |#
 			   apply
 			   garbage-collect
 			   primitive-fasdump
+			   set-current-history!
 			   with-history-disabled
 			   force
 			   primitive-purify
-- 
2.25.1