mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-26 05:45:37 +03:00
fix: use correct symbol type in Symbol.prefix (#1197)
This commit is contained in:
parent
d6f40b8570
commit
3d0fd558aa
@ -598,8 +598,8 @@ commandSymConcat ctx a =
|
||||
_ -> evalError ctx ("Can't call concat with " ++ pretty a) (xobjInfo a)
|
||||
|
||||
commandSymPrefix :: BinaryCommandCallback
|
||||
commandSymPrefix ctx (XObj (Sym (SymPath [] prefix) _) _ _) (XObj (Sym (SymPath [] suffix) _) i t) =
|
||||
pure (ctx, Right (XObj (Sym (SymPath [prefix] suffix) (LookupGlobal CarpLand AVariable)) i t))
|
||||
commandSymPrefix ctx (XObj (Sym (SymPath [] prefix) _) _ _) (XObj (Sym (SymPath [] suffix) st) i t) =
|
||||
pure (ctx, Right (XObj (Sym (SymPath [prefix] suffix) st) i t))
|
||||
commandSymPrefix ctx x (XObj (Sym (SymPath [] _) _) _ _) =
|
||||
pure $ evalError ctx ("Can’t call `prefix` with " ++ pretty x) (xobjInfo x)
|
||||
commandSymPrefix ctx _ x =
|
||||
|
Loading…
Reference in New Issue
Block a user