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,13 +194,6 @@
   )
 )
 
-(deftest identificador-test06
-  (testing "Test 06 identificador"
-    (is (= (identificador? 'es_impar_primo) true))
-  )
-)
-
-
 
 (deftest palabra-reservada-test01
   (testing "Test 01 palabra reservada"