Add `set-current-history!' to list of unsafe primitives.

diff --git a/v7/src/compiler/base/utils.scm b/v7/src/compiler/base/utils.scm
index 404d3262e313b986fa21c1a8f026fb38098edd89..6353b42ef8b44246ad0c73a82312094a5105061d 100644 (file)
--- 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