showError (NotCallable name) = "((make-error :not-callable) " ++ show name ++ ")"
showError (NotCallable name) = "((make-error :not-callable) " ++ show name ++ ")"
showError (NotCallable name) = "((make-error :not-callable) " ++ show name ++ ")"