fix identificador?

src/rustint/core.clj

@@ -2279,7 +2279,7 @@
   (and
     (symbol?  arg)
     (not (palabra-reservada? arg))
-    (not (nil? (re-matches #"_?[a-zA-Z][a-zA-Z0-9]*" (name arg))))
+    (not (nil? (re-matches #"_?[a-zA-Z][a-zA-Z0-9_]*" (name arg))))
   )
 )