From a5a6605877c98a37696a30d310a29f4d1fc230e9 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Sun, 20 Apr 2014 23:45:58 -0500
Subject: Perl: add step4_if_fn_do

- Move string/printing tests to the bottom of tests/step4_if_fn_do
---
 js/printer.js | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'js')

diff --git a/js/printer.js b/js/printer.js
index 575072e..5f0e03d 100644
--- a/js/printer.js
+++ b/js/printer.js
@@ -31,7 +31,7 @@ function _pr_str(obj, print_readably) {
         }
         return "{" + ret.join(' ') + "}";
     case 'string':
-        if (print_readably) {
+        if (_r) {
             return '"' + obj.replace(/\\/, "\\\\")
                 .replace(/"/g, '\\"')
                 .replace(/\n/g, "\\n") + '"'; // string
-- 
cgit v1.2.3