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))))
   )
 )
 

test/rustint/core_test.clj

@@ -194,6 +194,13 @@
   )
 )
 
+(deftest identificador-test06
+  (testing "Test 06 identificador"
+    (is (= (identificador? 'es_impar_primo) true))
+  )
+)
+
+
 
 (deftest palabra-reservada-test01
   (testing "Test 01 palabra reservada"