./ns-tx.ss:154:(define (suffix-temp stx-lst suffix)
./ns-tx.ss:158:        (syntax->datum stx-lst))))
./derived/derived-lang.ss:40:       (rpn-compile (stx-cdr stx))))))
./live/target-lang.ss:61:       (scat-wrap (rpn-compile (stx-cdr stx)))))))
./coma/pattern-runtime.ss:50:(define (pattern-tx->macro name xform)
./coma/target-scat.ss:57:  (define code-lst (stx-cdr stx))
./coma/README:8:;;    should be quite straightforward, only 'pattern-tx->macro'
./coma/pattern-tx.ss:167:  #`(pattern-tx->macro
./scat/scat-control.ss:45:;;          (let ((#,(datum->syntax (stx-car #'expr) 'stack->state)
./scat/snarf.ss:43:                           #,(stx-reverse #'(args ...))  ;; reversed
./scat/scat-base.ss:92:;;       ((rpn-immediate (stx-cons
./scat/redefine.ss:14:  (_tx #`(#,id #,@(stx-cdr stx))))
./scat/rpn-tx.ss:50: rpn-tx->syntax        ;; create expander with current RPN environment
./scat/rpn-tx.ss:194:       (if (stx-null? code+)
./scat/rpn-tx.ss:325:(define (rpn-tx->syntax tx)
./scat/rpn-tx.ss:331:         (tx (stx-cdr stx)))))))
./scat/rpn-tx.ss:352:  (lambda (stx-lst)
./scat/rpn-tx.ss:360:     stx-lst)))
./tools/stx.ss:38:(define (stx-reverse stx)
./tools/stx.ss:44:(define (stx-uncons stx)
./tools/stx.ss:45:  (values (stx-car stx) (stx-cdr stx)))
./tools/stx.ss:47:(define (stx-length s)
./tools/stx.ss:52:(define (lexical-context-from stx-lex)
./tools/stx.ss:55:           (datum->syntax stx-lex
./tools/stx-zipper.ss:8:(define (stx-zip-up stx)
./tools/stx-zipper.ss:13:(define (stx-zip-down stx)
./tools/stx-zipper.ss:18:(define (stx-zipper->tree stx)
./tools/stx-zipper.ss:21:    (_ (stx-zipper->tree (stx-zip-up stx)))))
./tools/stx-zipper.ss:23:(define (stx-tree->zipper stx) #`(#,stx #f))
./purrr/forth-begin-tx.ss:26: forth-begin-tx-debug)
./purrr/forth-begin-tx.ss:45:(define forth-begin-tx-debug (make-parameter #f))
./purrr/forth-begin-tx.ss:106:       (when (forth-begin-tx-debug)
./purrr/parsing-words.ss:26:(tx->syntax-ns (macro)
./ns.ss:27:  (_tx #`(#,id #,@(stx-cdr stx))))
./ns.ss:42:(define-sr (tx->syntax-ns n (name tx) ...)
./forth/locals-tx.ss:31:(define (stx-split stx sym)
./forth/locals-tx.ss:33:    (if (stx-null? s)
./forth/locals-tx.ss:34:        (error 'stx-split-eof "looking for `~s' in: ~s"
./forth/locals-tx.ss:37:            (((head tail) (stx-uncons s)))
./forth/locals-tx.ss:88:           (stx-split #'locals/code+ '\|)))
./forth/parser-tx.ss:94:    (collect-next (stx-cdr code))))
./forth/parser-tx.ss:106:(define (stx-srcloc stx)
./forth/parser-tx.ss:150:                   (stx-srcloc #'name))
./forth/parser-tx.ss:224:                (values (stx-cdr code) expr)))))
./forth/parser-tx.ss:249:                    (stx-cdr code)
./forth/parser-tx.ss:268:    (let ((p (stx->string s-p)))
./forth/parser-tx.ss:279:(define (stx->string stx)
./forth/parser-tx.ss:285:     (else (error 'stx->string)))))
./forth/parser-tx.ss:290:     (let* ((rel-file (stx->string #'file))
./forth/parser-tx.ss:334:  (define (collect stx-list)
./forth/parser-tx.ss:336:               (s stx-list))
./forth/parser-tx.ss:355:                (collect (stx-cdr code))))
./forth/single.ss:32:             (next #`((name mode #,(stx-srcloc #'name) body)
./forth/single.ss:35:(define (stx-srcloc stx)
./pic18/serial.f:30:: async.tx-ready? TXSTA TRMT high? ;
./pic18/serial.f:46:    begin async.tx-ready? until TXREG ! ;
./pic18/message.f:87:\     begin tx-message? while
./pic18/message.f:93:\     begin tx-message? while
./pic18/serial-icd.f:11:: icd.tx-port LATB 7 ;   \ PGD
./pic18/serial-icd.f:21:: icd.>tx                 ' icd.1bit ' icd.tx-port bb-tx ;    
./pic18/gen-rx-tx.f:10:: tx-ready?  ' tx-ready? pc ;  \ class -- ?