Perl: add step5_tco

- Make all warnings fatal/exceptions.

1 files changed, 5 insertions, 1 deletions

diff --git a/perl/printer.pm b/perl/printer.pm
index d5bc306..7880798 100644
--- a/perl/printer.pm
+++ b/perl/printer.pm
@@ -1,6 +1,6 @@
 package printer;
 use strict;
-use warnings;
+use warnings FATAL => qw(all);
 use feature qw(switch);
 use Exporter 'import';
 our @EXPORT_OK = qw( _pr_str );
@@ -37,6 +37,10 @@ sub _pr_str {
                 return $$obj;
             }
         }
+        when(/^Function/) {
+            return '<fn* ' . _pr_str($obj->{params}) .
+                   ' ' . _pr_str($obj->{ast}) . '>';
+        }
         when(/^CODE/)   { return '<builtin_fn* ' . $obj . '>'; }
         default         { return $$obj; }
     }