From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 12 Jan 1994 00:18:06 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: 20090517-FFI~7326
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5afd856b1841fdef259261222dbd16f641208f73;p=mit-scheme.git

*** empty log message ***
---

diff --git a/v7/src/runtime/wttree.scm b/v7/src/runtime/wttree.scm
index 235dbfe31..edc718034 100644
--- a/v7/src/runtime/wttree.scm
+++ b/v7/src/runtime/wttree.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: wttree.scm,v 1.2 1993/11/03 03:46:30 adams Exp $
+$Id: wttree.scm,v 1.3 1994/01/12 00:18:06 adams Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -220,7 +220,7 @@ MIT in each case. |#
 	(loop node index))))
 
 (define (error:empty owner)
-  ((access error ()) "Operation requires non-empty tree:" owner))
+  ((access error #F) "Operation requires non-empty tree:" owner))
 
 
 (define (make-wt-tree-type key<?)