Export GUARANTEE-THUNK.

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 57257bdc30bb9be47394ce94af877aa83f477f58..9442419334407d29c2a4e06039a0532e9c14d999 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.634 2008/02/02 02:07:58 cph Exp $
+$Id: runtime.pkg,v 14.635 2008/02/02 03:44:52 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -1396,12 +1396,14 @@ USA.
          error:not-primitive-procedure
          error:not-procedure
          error:not-procedure-arity
+         error:not-thunk
          guarantee-compiled-procedure
          guarantee-compound-procedure
          guarantee-primitive-procedure
          guarantee-procedure
          guarantee-procedure-arity
          guarantee-procedure-of-arity
+         guarantee-thunk
          implemented-primitive-procedure?
          make-apply-hook
          make-arity-dispatched-procedure