diff options
author | David Robillard <d@drobilla.net> | 2011-05-14 05:40:21 +0000 |
---|---|---|
committer | David Robillard <d@drobilla.net> | 2011-05-14 05:40:21 +0000 |
commit | d4fbd62b86c0b1129fd66c4efe4bfb3b2e0ecb4f (patch) | |
tree | 19fb48fbcb5e025b02eeb07ec42235bdbb4a42fe /src | |
parent | 82eeba6aca368aa04a6650b6ee7cefe4b28804b8 (diff) | |
download | resp-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
Diffstat (limited to 'src')
-rw-r--r-- | src/pprint.cpp | 6 |
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; } |