fixed some compatibility issue

rhs/rhs.rkt

@@ -16,6 +16,18 @@ Licensed under GPL (2 or 3? FIXME)
 
 (provide (all-defined-out))
 
+
+;; to fix rnrs compatibility
+
+#|
+(define exact inexact->exact)
+
+(define inexact exact->inexact)
+
+(define mod remainder)
+|#
+
+
 ;; prelude.scm ;;;;;;;;;;;;;;;;;;;;;;
 
 ;; enumFromThenTo :: a -> a -> a -> [a]
@@ -383,13 +395,15 @@ Licensed under GPL (2 or 3? FIXME)
           (head l)
           (last xs)))))
 
-;; length :: [a] -> Int
+;; mlength :: [a] -> Int
-#;(define length
+(define mlength
   (lambda (l)
     (if (null? l)
         0
         (+ 1 (length (tail l))))))
 
+
+
 ;; list1 :: a -> [a]
 (define list1
   (lambda (x)

sosc/sosc.rkt

@@ -7,6 +7,7 @@
   "../rhs/rhs.rkt"
   "bytevector.rkt"
   rnrs/bytevectors-6 ;; TODO - should be provided by bytevector.rkt
+  rnrs/io/ports-6
   )
 
 

sosc/transport.rkt

@@ -6,7 +6,8 @@
          "sosc.rkt"
          "ip.rkt")
 
-(provide (all-defined-out))
+(provide (all-defined-out)
+         (all-from-out "ip.rkt"))