From 405f94f6fc536e05000ddd4a419991c1f700850e Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 30 Jun 2010 14:00:09 -0600 Subject: [PATCH] unstable: removed byte-counting-port.rkt (use open-output-nowhere instead) updated test to verify that open-output-nowhere has same behavior original commit: a543c2137e25931706eca97282541785b75660bf --- collects/compiler/zo-marshal.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/compiler/zo-marshal.rkt b/collects/compiler/zo-marshal.rkt index f3ee228f9d..fba002eecb 100644 --- a/collects/compiler/zo-marshal.rkt +++ b/collects/compiler/zo-marshal.rkt @@ -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))