Merge branch 'string-cast' of https://github.com/Willyfrog/hy into Willyfrog-string-cast

hy/core/language.hy

@@ -175,6 +175,12 @@
   "Return second item from `coll`"
   (get coll 1))
 
+(defn string [x]
+  "Cast x as current string implementation"
+  (if-python2
+   (unicode x)
+   (str x)))
+
 (defn string? [x]
   "Return True if x is a string"
   (if-python2
@@ -216,5 +222,5 @@
                 "even?" "filter" "float?" "inc"
                 "instance?" "integer?" "iterable?" "iterate" "iterator?" "neg?"
                 "none?" "nth" "numeric?" "odd?" "pos?" "remove" "repeat"
-                "repeatedly" "second" "string?" "take" "take_nth" "take_while"
+                "repeatedly" "second" "string" "string?" "take" "take_nth" "take_while"
                 "zero?"])

tests/native_tests/language.hy

@@ -779,3 +779,7 @@
   "Evaluate an empty list to a []"
   (assert (= () [])))
 
+(defn test-string []
+  (assert (string? (string "a")))
+  (assert (string? (string 1)))
+  (assert (= u"unicode" (string "unicode"))))