- (collect `(,(+ idx n-required-arguments)
- (= ,(make-symbol (translate-variable (car arg)))
- ,(ls-compile (cadr arg)))
- ,(when (third arg)
- `(= ,(make-symbol (translate-variable (third arg)))
- ,(ls-compile nil)))))))
- (collect `(default (break))))))))
+ (collect `(case ,(+ idx n-required-arguments)))
+ (collect `(= ,(make-symbol (translate-variable (car arg)))
+ ,(ls-compile (cadr arg))))
+ (collect (when (third arg)
+ `(= ,(make-symbol (translate-variable (third arg)))
+ ,(ls-compile nil))))))
+ (collect 'default)
+ (collect '(break)))))))