From dff72df9adddbdcc289dfba86575f4691fb2a9b6 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 26 Apr 1996 18:14:04 +0000 Subject: [PATCH] Fix typo. --- v8/src/compiler/midend/rtlgen.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm index 1fe625fe8..e38a911f9 100644 --- a/v8/src/compiler/midend/rtlgen.scm +++ b/v8/src/compiler/midend/rtlgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rtlgen.scm,v 1.45 1996/04/26 17:41:57 adams Exp $ +$Id: rtlgen.scm,v 1.46 1996/04/26 18:14:04 cph Exp $ Copyright (c) 1994-96 Massachusetts Institute of Technology @@ -4022,9 +4022,9 @@ MIT in each case. |# (define-open-coder/stmt %profile-data 1 (lambda (state rands open-coder) state open-coder ; ignored - (let ((data (first rands))) - (not (rtlgen/constant? data) - (internal-error "Profile data must be constant" data)) + (let ((data (first rands))) + (if (not (rtlgen/constant? data)) + (internal-error "Profile data must be constant" data)) (rtlgen/emit!/1 `(PROFILE-DATA (CONSTANT ,(rtlgen/constant-value data))))))) -- 2.25.1