Changes -> and -! to %-> and %-!, because of too many name clashes in racket for ->.

class.rkt

@@ -1,29 +1,29 @@
 #lang racket
 
 (require (rename-in racket/class [send old-send] [new old-new]))
-(require (for-syntax (rename-in roos [-> old->])))
-(require (rename-in roos [-> old->]))
+(require (for-syntax (rename-in roos [%-> old->])))
+(require (rename-in roos [%-> old->]))
 
 (provide (all-from-out roos)
          (all-from-out racket/class)
-         -> send new
+         %-> send new
          )
 
 (define-syntax send
   (syntax-rules ()
     ((_ obj method)
      (if (roos-object? obj)
-         (-> obj method)
+         (old-> obj method)
          (old-send obj method)))
     ((_ obj method a ...)
      (if (roos-object? obj)
-         (-> obj method a ...)
+         (old-> obj method a ...)
          (old-send obj method a ...)))
     ))
 
 
 
-(define-syntax ->
+(define-syntax %->
   (syntax-rules ()
     ((_ obj method)
      (if (roos-object? obj)