diff options
| -rw-r--r-- | ABC/Assembler.icl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ABC/Assembler.icl b/ABC/Assembler.icl index 0d90e90..5dec73f 100644 --- a/ABC/Assembler.icl +++ b/ABC/Assembler.icl @@ -57,6 +57,7 @@ gPrint{|CONS of d|} fx (CONS x) = case d.gcd_name of "Comment" = ['| '] ++ fx x "Annotation" = fx x "Raw" = fx x + "EqDescArity" = ['eq_desc\t'] ++ fx x name = tl (cons (fromString name)) ++ ['\t':fx x] where cons :: ![Char] -> [Char] |