You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
530 B
Racket
16 lines
530 B
Racket
7 years ago
|
#lang restructure/racket
|
||
|
|
(require "decodestream.rkt" "encodestream.rkt")
|
||
|
|
(provide RStreamcoder)
|
||
|
|
|
||
|
|
(define-subclass RBase (RStreamcoder)
|
||
|
|
|
||
|
|
(define/overment (decode stream . args)
|
||
|
|
(unless (is-a? stream RDecodeStream)
|
||
|
|
(raise-argument-error 'decode "RDecodeStream" stream))
|
||
|
|
(inner (void) decode stream . args))
|
||
|
|
|
||
|
|
(define/overment (encode stream . args)
|
||
|
|
(when stream
|
||
|
|
(unless (is-a? stream REncodeStream)
|
||
|
|
(raise-argument-error 'encode "REncodeStream" stream)))
|
||
|
|
(inner (void) encode stream . args)))
|