From 4fe782ead1572e44599791cb7ca49cdb0c93cfd9 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 5 Sep 1995 18:01:24 +0000 Subject: [PATCH] Changed `dethunking' to expect promises, so we can profile primitive procedures. --- v8/src/compiler/base/stats.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v8/src/compiler/base/stats.scm b/v8/src/compiler/base/stats.scm index 8e4f12668..cd3781150 100644 --- a/v8/src/compiler/base/stats.scm +++ b/v8/src/compiler/base/stats.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: stats.scm,v 1.4 1995/07/20 16:03:54 adams Exp $ +$Id: stats.scm,v 1.5 1995/09/05 18:01:24 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -119,10 +119,10 @@ MIT in each case. |# (sample/2/really statistic datum1 datum2)))) -(define-integrable (dethunk possible-thunk) +(define (dethunk possible-thunk) (let ((possible-thunk possible-thunk)) - (if (procedure? possible-thunk) - (possible-thunk) + (if (promise? possible-thunk) + (force possible-thunk) possible-thunk))) (define-integrable (find-statistic specification) -- 2.25.1