Suguivy
/
cherry-lisp
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor fix

This commit is contained in:
Ivy 2021-02-04 14:21:45 +01:00
parent 2555d5b97b
commit d77a4d2460
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Types/Language.hs
View File

@ -22,7 +22,7 @@ instance Show Expr where
where showCons (ConsE x NilE) = show x ++ ")" where showCons (ConsE x NilE) = show x ++ ")"
showCons (ConsE x xs) = show x ++ " " ++ show xs ++ ")" showCons (ConsE x xs) = show x ++ " " ++ show xs ++ ")"
show (LambdaE s e) = "#[lambda " ++ s ++ " " ++ show e ++ "]" show (LambdaE s e) = "#[lambda " ++ s ++ " " ++ show e ++ "]"
show (QuotedE e) = "Q" ++ show e show (QuotedE e) = show e
show NilE = "nil" show NilE = "nil"
cons2List :: Expr -> [Expr] cons2List :: Expr -> [Expr]