Earmuff stuff.

hy/lex/states.py

@@ -61,6 +61,9 @@ def _resolve_atom(obj):
     if obj in table:
         return HySymbol(table[obj])
 
+    if obj.startswith("*") and obj.endswith("*") and obj != "*":
+        obj = obj[1:-1].upper()
+
     if "-" in obj and obj != "-":
         obj = obj.replace("-", "_")
 

tests/native_tests/language.hy

@@ -124,3 +124,10 @@
     (catch KeyError (do
                       (+ 1 1)
                       (assert (= 1 1))))))
+
+(defn test-earmuffs []
+  "NATIVE: Test earmuffs"
+  (def *foo* "2")
+  (def foo "3")
+  (assert (= *foo* FOO))
+  (assert (!= *foo* foo)))