unstable: removed byte-counting-port.rkt (use open-output-nowhere instead)

updated test to verify that open-output-nowhere has same behavior

original commit: a543c2137e
This commit is contained in:
Ryan Culpepper 2010-06-30 14:00:09 -06:00
parent aa49f6b2de
commit 405f94f6fc

View File

@ -1,6 +1,6 @@
#lang scheme/base
(require compiler/zo-structs
unstable/byte-counting-port
scheme/port
scheme/match
scheme/contract
scheme/local
@ -68,7 +68,7 @@
(out-data (list* max-let-depth prefix (protect-quote form))
(make-out outp (lambda (v) (hash-ref shared v #f)) wrapped))
(values offsets post-shared (file-position outp)))
(define counting-p (make-byte-counting-port))
(define counting-p (open-output-nowhere))
(define-values (offsets post-shared all-forms-length)
(write-all counting-p))
(define all-short? (post-shared . < . #xFFFF))