From 93ba9d4a7b88dd6a8acfd900da8b57e4c5d1dcd8 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 2 Feb 2008 03:44:52 +0000 Subject: [PATCH] Export GUARANTEE-THUNK. --- v7/src/runtime/runtime.pkg | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 57257bdc3..944241933 100644 --- 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 -- 2.25.1