+ (config-port-set! config (string->number (car rest-args)))
+ (loop (cdr rest-args)))
+ ((or (equal? this-arg "-u")
+ (equal? this-arg "--user"))
+ (config-uid-set! config (string->number (car rest-args)))
+ (loop (cdr rest-args)))
+ ((or (equal? this-arg "-g")
+ (equal? this-arg "--group"))
+ (config-gid-set! config (string->number (car rest-args)))