aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDavid Robillard <d@drobilla.net>2011-05-14 05:40:21 +0000
committerDavid Robillard <d@drobilla.net>2011-05-14 05:40:21 +0000
commitd4fbd62b86c0b1129fd66c4efe4bfb3b2e0ecb4f (patch)
tree19fb48fbcb5e025b02eeb07ec42235bdbb4a42fe
parent82eeba6aca368aa04a6650b6ee7cefe4b28804b8 (diff)
downloadresp-d4fbd62b86c0b1129fd66c4efe4bfb3b2e0ecb4f.tar.gz
resp-d4fbd62b86c0b1129fd66c4efe4bfb3b2e0ecb4f.tar.bz2
resp-d4fbd62b86c0b1129fd66c4efe4bfb3b2e0ecb4f.zip
Improve pretty-printing spacing (don't double space flat IR).
git-svn-id: http://svn.drobilla.net/resp/trunk@418 ad02d1e2-f140-0410-9f75-f8b11f17cedd
-rw-r--r--src/pprint.cpp6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/pprint.cpp b/src/pprint.cpp
index 4adb568..44a6759 100644
--- a/src/pprint.cpp
+++ b/src/pprint.cpp
@@ -262,5 +262,9 @@ pprint(ostream& out, const AST* ast, CEnv* cenv, bool types)
{
print_to(out, ast, 0, cenv, types);
print_annotation(out, ast, 0, cenv, types);
- out << endl << endl;
+ out << endl;
+ if ((is_form(ast, "def") && is_form(ast->as_tuple()->frrst(), "fn"))
+ || is_form(ast, "fn-end")
+ || is_form(ast, "def-type"))
+ out << endl;
}