From 1a47b72eeb94aeebe93ff23a625f7c710dbe143e Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Thu, 26 Jul 2012 14:41:55 -0400
Subject: [PATCH] compatibility with 5.3

---
 cs019/teach.rkt     | 22 ++++++++++++++++++++--
 cs019/teachhelp.rkt | 17 +++++++++++++++--
 version.rkt         |  2 +-
 3 files changed, 36 insertions(+), 5 deletions(-)

diff --git a/cs019/teach.rkt b/cs019/teach.rkt
index 7cb05e1..52e7b1c 100644
--- a/cs019/teach.rkt
+++ b/cs019/teach.rkt
@@ -3,11 +3,29 @@
 (require (for-template "../lang/base.rkt")
          (for-template "teach-runtime.rkt")
          "teachhelp.rkt"
-         stepper/private/shared
          racket/list
          syntax/context
          syntax/kerncase
-         syntax/stx)
+         syntax/stx
+         "../version-case/version-case.rkt"
+         (for-syntax racket/base))
+
+  ;; We're treading in private implementation; we deserve this pain.
+  (version-case
+    [(and (version<= "5.2.0.900" (version))
+          (version< (version) "5.2.900"))
+     (begin
+       (require stepper/private/shared)
+       (require (for-syntax stepper/private/shared)))]
+    [(version<= "5.2.900" (version))
+     (begin
+       (require stepper/private/syntax-property)
+       (require (for-syntax stepper/private/syntax-property)))]
+    [else
+     (error 'teachhelp.rkt "Unable to cooperate with Racket ~a" (version))])
+
+
+
 
 
 (provide advanced-define/proc
diff --git a/cs019/teachhelp.rkt b/cs019/teachhelp.rkt
index 01d4c22..558a9a1 100644
--- a/cs019/teachhelp.rkt
+++ b/cs019/teachhelp.rkt
@@ -1,10 +1,23 @@
 (module teachhelp mzscheme
   (require "firstorder.rkt"
            "rewrite-error-message.rkt"
-           stepper/private/shared)
+           "../version-case/version-case.rkt")
 
-  (require-for-syntax stepper/private/shared)
+  ;; We're treading in private implementation; we deserve this pain.
+  (version-case
+    [(and (version<= "5.2.0.900" (version))
+          (version< (version) "5.2.900"))
+     (begin
+       (require stepper/private/shared)
+       (require-for-syntax stepper/private/shared))]
+    [(version<= "5.2.900" (version))
+     (begin
+       (require stepper/private/syntax-property)
+       (require-for-syntax stepper/private/syntax-property))]
+    [else
+     (error 'teachhelp.rkt "Unable to cooperate with Racket ~a" (version))])
 
+  
   (provide make-undefined-check
            make-first-order-function)
 
diff --git a/version.rkt b/version.rkt
index 28b610e..38f6638 100644
--- a/version.rkt
+++ b/version.rkt
@@ -7,4 +7,4 @@
 (provide version)
 (: version String)
 
-(define version "1.231")
+(define version "1.239")