From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 26 Apr 1996 18:14:04 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~5560
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dff72df9adddbdcc289dfba86575f4691fb2a9b6;p=mit-scheme.git

Fix typo.
---

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)))))))