arc> src.indent-with (from "../anarki/lib/ppr.arc") (def indent-with (l) (fn (xs (o col 0)) (pr "(") (indent-pairs car.xs (+ col 3 l)) (pr ")") (indent-block cdr.xs (+ col 3))))t
(fn (xs (o col 0)) (pr "(") (indent-pairs car.xs (+ col 3 l)) (pr ")") (indent-block cdr.x (+ col 3))))
--- ../anarki/lib/ppr.arc 2009-06-16 15:42:12.000000000 -0400 +++ ppr.arc 2009-06-16 20:15:39.000000000 -0400 @@ -133,7 +133,8 @@ or ,[indent-basic _ 2 _2] nor ,[indent-basic _ 3 _2] case ,(indent-case 1) - caselet ,(indent-case 2)))) + caselet ,(indent-case 2) + fn ,[indent-mac _ 2 1 _2]))) (def ppr (x (o col 0) (o noindent nil)) " Pretty print. This function displays arc code with proper
But yes, that is exactly the fix, and also why I wrote it that way. Unfortunately, I'm beginning to think that the order of the function arguments could have been planned a bit better. All of those numbers can be rather confusing.
I should probably comment my code too ;)
-----