Fix typo.

diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm
index 1fe625fe83ed5b9dde91869c7012ebac92941141..e38a911f90d7e59fece9da155ea6b27322dc5cee 100644 (file)
--- 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)))))))