diff options
Diffstat (limited to '')
-rw-r--r-- | luxc/src/lux/compiler/cache.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/luxc/src/lux/compiler/cache.clj b/luxc/src/lux/compiler/cache.clj index 0b8739463..d6b5e8317 100644 --- a/luxc/src/lux/compiler/cache.clj +++ b/luxc/src/lux/compiler/cache.clj @@ -89,8 +89,8 @@ (defn make-tag [ident] (&/T [(&/T ["" 0 0]) (&/$Tag ident)])) -(defn make-symbol [ident] - (&/T [(&/T ["" 0 0]) (&/$Symbol ident)])) +(defn make-identifier [ident] + (&/T [(&/T ["" 0 0]) (&/$Identifier ident)])) (defn make-record [ident] (&/T [(&/T ["" 0 0]) (&/$Record ident)])) @@ -101,7 +101,7 @@ 2 (let [[_name _alias] parts [_ __module __name] (re-find #"^(.*)\.(.*)$" _alias) def-anns (make-record (&/|list (&/T [(make-tag &a-meta/alias-tag) - (make-symbol (&/T [__module __name]))])))] + (make-identifier (&/T [__module __name]))])))] (|do [def-type (&a-module/def-type __module __name) def-value (load-def-value __module __name)] (&a-module/define module _name def-type def-anns def-value))) |