Fix identifiers starting with t or f not parsing
This commit is contained in:
parent
5c341d7df4
commit
702d34ca86
|
@ -49,6 +49,7 @@ bind (env:xs) name value = (M.insert name value env):xs
|
|||
instance Show Value where
|
||||
show (IntV i) = show i
|
||||
show (StrV s) = show s
|
||||
show (BoolV b) = show b
|
||||
show (TupleV v) = "(" ++ intercalate "," (map show v) ++ ")"
|
||||
show (ListV v) = show v
|
||||
show (FnV _ _) = "<fn>"
|
||||
|
|
Loading…
Reference in New Issue