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

[pf3gnuchains/pf3gnuchains4x.git] / cgen / read.scm

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