+(define (serve-record record path config)
+ (match record
+ ((type display-string selector host port)
+ (print type display-string "\t" selector "\t" host "\t" port "\r"))
+ ((type display-string selector host)
+ (serve-record (list type display-string selector host 70)
+ path config))
+ ((type display-string selector)
+ (serve-record (list type display-string selector
+ (server-host config) (server-port config))
+ path config))
+ ((display-string selector)
+ (serve-record (list (infer-selector-type selector) display-string selector)
+ path config))
+ ((selector)
+ (serve-record (list (infer-selector-type selector) selector)
+ path config))
+ (else (error "Unknown record type."))))
+
+