diff options
| -rw-r--r-- | stdlib/compiler.tl | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index 349fd9ab..bf365ff3 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -1944,19 +1944,18 @@ (when (> mcount 3) (compile-error form "too many formatting modifiers")) ^(alet ,(nreverse gens) - ,(if flex - ^(sys:fmt-flex ,obj ',plist - ,*(remq nil (list* num sep - (if scalar-ix-p - ^(rcons ,rng-ix nil) - rng-ix) - (nreverse flex)))) - (cond - (plist ^(sys:fmt-simple ,obj ,num ,sep, rng-ix ',plist)) - (rng-ix ^(sys:fmt-simple ,obj ,num ,sep, rng-ix)) - (sep ^(sys:fmt-simple ,obj ,num ,sep)) - (num ^(sys:fmt-simple ,obj ,num)) - (t ^(sys:fmt-simple ,obj ,num))))))))) + ,(cond + (flex ^(sys:fmt-flex ,obj ',plist + ,*(remq nil (list* num sep + (if scalar-ix-p + ^(rcons ,rng-ix nil) + rng-ix) + (nreverse flex))))) + (plist ^(sys:fmt-simple ,obj ,num ,sep, rng-ix ',plist)) + (rng-ix ^(sys:fmt-simple ,obj ,num ,sep, rng-ix)) + (sep ^(sys:fmt-simple ,obj ,num ,sep)) + (num ^(sys:fmt-simple ,obj ,num)) + (t ^(sys:fmt-simple ,obj ,num)))))))) (defun expand-quasi-args (form) (append-each ((el (cdr form))) |