From 60f2b3638e2e856a984dd46fc319bc316c0d0952 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Mon, 21 Apr 2014 20:08:18 -0500
Subject: Perl: add step5_tco

- Make all warnings fatal/exceptions.
---
 perl/printer.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl/printer.pm')

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; }
     }
-- 
cgit v1.2.3