coma/comma-unit.ss
#lang scheme/unit

(require
 scheme/unit
 "../sig.ss"
 "macro.ss")

(import comma^)
(export comma-extra^)

(patterns
 (macro)
 (([dw a]  dw>)     ([qw a]))
 
 ;; Will be redefined when data word size != program word size. The
 ;; convention is to use the data word size as unit.
 
 
 (([qw x] |string,|)  (list->macro
                       (macro: |,|) ;; glue
                       (let ((l (->byte-list x)))
                         (cons (length l) l))))
 )