From a6d122a8eb1e9052f97d8d97c15e29f7acfe7d57 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Thu, 26 Jul 2012 14:25:42 -0400
Subject: [PATCH] changing the version detection code to work with 5.3
 prerelease

---
 parser/parse-bytecode-5.2.1.rkt | 2 +-
 parser/parse-bytecode-5.3.rkt   | 2 +-
 parser/parse-bytecode.rkt       | 4 ++--
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/parser/parse-bytecode-5.2.1.rkt b/parser/parse-bytecode-5.2.1.rkt
index dd38e85..22a736e 100644
--- a/parser/parse-bytecode-5.2.1.rkt
+++ b/parser/parse-bytecode-5.2.1.rkt
@@ -7,7 +7,7 @@
 
 (version-case
   [(and (version<= "5.2.0.900" (version))
-        (version< (version) "5.2.901"))
+        (version< (version) "5.2.900"))
 
    ;; Parsing Racket 5.1.2 bytecode structures into our own structures.
    (require "path-rewriter.rkt"
diff --git a/parser/parse-bytecode-5.3.rkt b/parser/parse-bytecode-5.3.rkt
index 1676570..1839d3b 100644
--- a/parser/parse-bytecode-5.3.rkt
+++ b/parser/parse-bytecode-5.3.rkt
@@ -6,7 +6,7 @@
 
 
 (version-case
-  [(version<= "5.2.901" (version))
+  [(version<= "5.2.900" (version))
 
    ;; Parsing Racket 5.3 bytecode structures into our own structures.
    (require "path-rewriter.rkt"
diff --git a/parser/parse-bytecode.rkt b/parser/parse-bytecode.rkt
index 0c383f6..5fca23d 100644
--- a/parser/parse-bytecode.rkt
+++ b/parser/parse-bytecode.rkt
@@ -28,13 +28,13 @@
      (provide (except-out (all-from-out "parse-bytecode-5.2.rkt")
                           parse-bytecode)))]
   [(and (version<= "5.2.0.900" (version))
-        (version< (version) "5.2.901"))
+        (version< (version) "5.2.900"))
    (begin
      (log-debug "Using 5.2.1 bytecode parser")
      (require "parse-bytecode-5.2.1.rkt")
      (provide (except-out (all-from-out "parse-bytecode-5.2.1.rkt")
                           parse-bytecode)))]
-  [(and (version<= "5.2.901" (version))
+  [(and (version<= "5.2.900" (version))
         ;;(version< (version) "5.3")
         )
    (begin