- ((arg-sym
- (if
- (string? arg)
- (if
- (string-index arg #\ )
- (begin
- (string-capitalize! arg)
- (let
- ((arg-list (string-split arg #\ )))
- (string->symbol
- (let append-all ((x arg-list))
- (if
- (null? x)
- ""
- (string-append (car x) (append-all (cdr x))))))))
- (string->symbol arg))
- arg))
+ ((arg-sym (if (string? arg)
+ (if (string-index arg #\ )
+ (let
+ ((arg-list (string-split (string-capitalize arg) #\ )))
+
+ (string->symbol
+ (let append-all ((x arg-list))
+ (if (null? x)
+ ""
+ (string-append (car x) (append-all (cdr x)))))))
+
+ (string->symbol arg))
+ arg))
+