diff --git a/src/rustint/core.clj b/src/rustint/core.clj index 3115cb2..5b6f803 100644 --- a/src/rustint/core.clj +++ b/src/rustint/core.clj @@ -1988,7 +1988,15 @@ ; false ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defn identificador? [arg] - true + (and + (not (palabra-reservada? arg)) + (contains? + (set + (map char (range 97 122)) + ) + (first (name arg)) + ) + ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;