fix identificador?

src/rustint/core.clj

@@ -2279,12 +2279,7 @@
   (and
     (symbol?  arg)
     (not (palabra-reservada? arg))
-    (contains?
-      (set
-        (map char (range 97 122))
-      )
-      (first (name arg))
-    )
+    (not (nil? (re-matches #"_?[a-zA-Z][a-zA-Z0-9]*" (name arg))))
   )
 )