* read.scm (rtl-version-at-least?): Fix typo.

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index 94e070f..beb5bfa 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,3 +1,7 @@
+2010-01-28  Doug Evans  <dje@sebabeach.org>
+
+       * read.scm (rtl-version-at-least?): Fix typo.
+
 2010-01-27  Doug Evans  <dje@sebabeach.org>
 
        * read.scm: Follow commenting convention.

diff --git a/cgen/read.scm b/cgen/read.scm
index b32f1e9..1a1aaaa 100644 (file)
--- a/cgen/read.scm
+++ b/cgen/read.scm
@@ -84,7 +84,7 @@
 )
 (define (rtl-version-at-least? major minor)
   (let ((rmajor (cgen-rtl-major))
-       (rminor (cgen-rtl-major)))
+       (rminor (cgen-rtl-minor)))
     (or (> rmajor major)
        (and (= rmajor major)
             (>= rminor minor))))