Permalink
Browse files

Update to Show OVal declaration for 2D and 3D objs.

  • Loading branch information...
1 parent 3258647 commit 5bc95d587bcf9f8b3dbc7b86840a8e1add3b5b32 @colah committed Dec 4, 2012
Showing with 2 additions and 0 deletions.
  1. +2 −0 Graphics/Implicit/ExtOpenScad/Definitions.hs
@@ -65,6 +65,8 @@ instance Show OVal where
show (OFunc f) = "<function>"
show (OModule _) = "module"
show (OError msgs) = "Execution Error:\n" ++ foldl1 (\a b -> a ++ "\n" ++ b) msgs
+ show (OObj2 obj) = "<obj2: " ++ show obj ++ ">"
+ show (OObj3 obj) = "<obj3: " ++ show obj ++ ">"
type VarLookup = Map String OVal
type FStack = [OVal]

0 comments on commit 5bc95d5

Please sign in to comment.