97jaz

#lang racket/base

(require (only-in racket/port open-output-nowhere)
         (only-in racket/string string-join))

(struct pending-write (bstr out start end) #:authentic #:mutable)

(define-syntax-rule (define/pending-write (bstr out start end) pending-write)
  (define-values (bstr out start end)
    (let ([x pending-write])

97jaz

#lang racket/base

(require (for-syntax racket/base
                     racket/syntax
                     racket/require-transform
                     syntax/id-table))

(begin-for-syntax  
  (struct import-transformer (aliases)
    #:property prop:require-transformer