core: Add yyy and zzz to ys::std and yamlscript::debug

Author: ingydotnet

core/src/yamlscript/debug.clj

@@ -4,7 +4,9 @@
 ;; The yamlscript.debug library defines a set of Clojure debugging functions.
 
 (ns yamlscript.debug
-  (:require [clojure.pprint :as pp]))
+  (:require
+   [ys.yaml :as yaml]
+   [clojure.pprint :as pp]))
 
 (defn dump [o]
   (str
@@ -13,10 +15,6 @@
       (pp/pprint o))
     "...\n"))
 
-(defn xxx [& o]
-  (let [o (if (= 1 (count o)) (first o) o)]
-    (throw (Exception. ^String (dump o)))))
-
 (defn www [& o]
   (let [l (last o)
         o (if (= 1 (count o)) (first o) o)]
@@ -25,6 +23,21 @@
       (flush))
     l))
 
+(defn xxx [& o]
+  (let [o (if (= 1 (count o)) (first o) o)]
+    (throw (Exception. ^String (str "\n" (dump o))))))
+
+(defn yyy [& o]
+  (let [l (last o)
+        o (if (= 1 (count o)) (first o) o)]
+    (print (dump o))
+    (flush)
+    l))
+
+(defn zzz [& o]
+  (let [o (if (= 1 (count o)) (first o) o)]
+    (throw (Exception. ^String (str "\n" (dump o))))))
+
 (defn xxx+ [& o]
   (binding [*print-meta* true]
     (apply xxx o)))

core/src/ys/std.clj

@@ -13,6 +13,15 @@
 (defn www [& xs]
   (apply yamlscript.debug/www xs))
 
+(defn xxx [& xs]
+  (apply yamlscript.debug/xxx xs))
+
+(defn yyy [& xs]
+  (apply yamlscript.debug/yyy xs))
+
+(defn zzz [& xs]
+  (apply yamlscript.debug/zzz xs))
+
 (defn toB [x] boolean x)
 
 (defn toF [x] (parse-double x))

core/src/ys/yaml.clj

@@ -3,7 +3,6 @@
 
 (ns ys.yaml
   (:require
-   [yamlscript.debug :refer [www]]
    [clj-yaml.core :as yaml])
   (:refer-clojure :exclude [load]))