* read.scm (/cmd-define-rtl-version): Only log rtl version if changed.

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index a41c591..d820de7 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,5 +1,7 @@
 2009-11-21  Doug Evans  <dje@sebabeach.org>
 
+       * read.scm (/cmd-define-rtl-version): Only log rtl version if changed.
+
        * operand.scm (op-nub): Delete.
 
        * dev-utils.scm: New file.

diff --git a/cgen/read.scm b/cgen/read.scm
index 6e5dfe7..fc87642 100644 (file)
--- a/cgen/read.scm
+++ b/cgen/read.scm
@@ -105,7 +105,8 @@
   (let ((new-version (list major minor)))
     (if (not (member new-version /supported-rtl-versions))
        (parse-error #f "Unsupported/invalid rtl version" new-version))
-    (logit 1 "Setting RTL version to " major "." minor " ...\n")
+    (if (not (equal? new-version /CGEN-RTL-VERSION))
+       (logit 1 "Setting RTL version to " major "." minor " ...\n"))
     (set! /CGEN-RTL-VERSION new-version))
 )