deprecations

pitfall/xenomorph/main.rkt

@@ -3,7 +3,6 @@
 (r+p "array.rkt"
      "base.rkt"
      "bitfield.rkt"
-     "buffer.rkt"
      "enum.rkt"
      "lazy-array.rkt"
      "number.rkt"

pitfall/xenomorph/private/array.rkt

@@ -1,5 +1,5 @@
 #lang reader (submod "racket.rkt" reader)
-(require "number.rkt" "utils.rkt" "stream.rkt")
+(require "number.rkt" "utils.rkt")
 (provide (all-defined-out))
 
 #|

pitfall/xenomorph/private/bitfield.rkt

@@ -1,5 +1,4 @@
 #lang reader (submod "racket.rkt" reader)
-(require "stream.rkt")
 (provide (all-defined-out))
 
 #|

pitfall/xenomorph/private/enum.rkt

@@ -1,5 +1,4 @@
 #lang reader (submod "racket.rkt" reader)
-(require "stream.rkt")
 (provide (all-defined-out))
 
 #|

pitfall/xenomorph/private/lazy-array.rkt

@@ -61,7 +61,6 @@ https://github.com/mbutterick/restructure/blob/master/src/LazyArray.coffee
                            val) ctx)))    
 
 (test-module
- (require "stream.rkt")
  (define bstr #"ABCD1234")
  (define ds (open-input-bytes bstr))
  (define la (+LazyArray uint8 4))

pitfall/xenomorph/private/optional.rkt

@@ -1,5 +1,4 @@
 #lang reader (submod "racket.rkt" reader)
-(require "stream.rkt")
 (provide (all-defined-out))
 
 #|

pitfall/xenomorph/private/string.rkt

@@ -1,5 +1,5 @@
 #lang reader (submod "racket.rkt" reader)
-(require "number.rkt" "utils.rkt" "stream.rkt")
+(require "number.rkt" "utils.rkt")
 (provide (all-defined-out))
 
 #|
@@ -79,7 +79,6 @@ https://github.com/mbutterick/restructure/blob/master/src/String.coffee
 (define-values (String? +String) (values StringT? +StringT))
 
 (test-module
-   (require "stream.rkt")
    (define S (+String uint8 'utf8))
    (check-equal? (send S decode #"\2BCDEF") "BC")
    (check-equal? (send S encode #f "Mike") #"\4Mike")

pitfall/xenomorph/private/struct.rkt

@@ -1,5 +1,5 @@
 #lang reader (submod "racket.rkt" reader)
-(require racket/dict "stream.rkt" racket/private/generic-methods racket/struct)
+(require racket/dict racket/private/generic-methods racket/struct)
 (provide (all-defined-out) ref* ref*-set! (all-from-out racket/dict))
 (require (prefix-in d: racket/dict))
 

pitfall/xenomorph/test/main.rkt

@@ -2,7 +2,6 @@
 
 (require "array-test.rkt"
          "bitfield-test.rkt"
-         "buffer-test.rkt"
          "enum-test.rkt"
          "lazy-array-test.rkt"
          "number-test.rkt"

pitfall/xenomorph/test/versioned-struct-test.rkt

@@ -129,7 +129,7 @@ https://github.com/mbutterick/restructure/blob/master/test/VersionedStruct.coffe
                                  1 (dictify 'name (+StringT uint8 'utf8)
                                             'age uint8
                                             'gender uint8)))])
-  (set-field! process struct (λ (o stream ctx) (ref-set! o 'processed "true") o))
+  (set-field! post-decode struct (λ (o stream ctx) (ref-set! o 'processed "true") o))
   (parameterize ([current-input-port (open-input-bytes #"\x00\x05devon\x15")])
     (check-equal? (dump (decode struct)) (mhasheq 'name "devon"
                                                   'processed "true"
@@ -253,7 +253,7 @@ https://github.com/mbutterick/restructure/blob/master/test/VersionedStruct.coffe
                           'age 21
                           'gender 0
                           'version 1) port)
-  (check-equal? (dump port) (+Buffer "\x00\x05devon\x15\x01\x0adevon 👍\x15\x00" 'utf8)))
+  (check-equal? (dump port) (string->bytes/utf-8 "\x00\x05devon\x15\x01\x0adevon 👍\x15\x00")))
 
 
 ;