Permalink
Browse files

pretty-print private Binary nodes without their lhs

  • Loading branch information...
1 parent 16cabf3 commit 9a645474725eec06eb93a5bfa1895f1010daa3af @vito committed Jan 5, 2012
Showing with 6 additions and 1 deletion.
  1. +6 −1 kernel/pretty.ay
View
@@ -175,7 +175,12 @@ Atomy::AST open:
Binary pretty-doc :=
from(.binary):
- ((@lhs unamb <+> text(@operator)) </> @rhs unamb) hang(2)
+ ( if(@private)
+ then:
+ text(@operator) </> @rhs unamb
+ else:
+ @lhs unamb <+> text(@operator) </> @rhs unamb
+ ) hang(2)
Block pretty-doc := do:
args =

0 comments on commit 9a64547

Please sign in to comment.