Remove very verbose debug statements
This commit is contained in:
parent
19790fd1fc
commit
b6b06224c5
|
@ -298,13 +298,11 @@ callFunc fun arg = demand fun $ \fun' -> do
|
||||||
"Function call stack exhausted"
|
"Function call stack exhausted"
|
||||||
case fun' of
|
case fun' of
|
||||||
NVClosure params f -> do
|
NVClosure params f -> do
|
||||||
traceM $ "callFunc:NVFunction taking " ++ show params
|
|
||||||
f arg
|
f arg
|
||||||
NVBuiltin name f -> do
|
NVBuiltin name f -> do
|
||||||
span <- currentPos
|
span <- currentPos
|
||||||
withFrame Info (Calling @m @t name span) (f arg)
|
withFrame Info (Calling @m @t name span) (f arg)
|
||||||
s@(NVSet m _) | Just f <- M.lookup "__functor" m -> do
|
s@(NVSet m _) | Just f <- M.lookup "__functor" m -> do
|
||||||
traceM "callFunc:__functor"
|
|
||||||
demand f $ (`callFunc` s) >=> (`callFunc` arg)
|
demand f $ (`callFunc` s) >=> (`callFunc` arg)
|
||||||
x -> throwError $ ErrorCall $ "Attempt to call non-function: " ++ show x
|
x -> throwError $ ErrorCall $ "Attempt to call non-function: " ++ show x
|
||||||
|
|
||||||
|
@ -316,7 +314,6 @@ execUnaryOp
|
||||||
-> NValue t f m
|
-> NValue t f m
|
||||||
-> m (NValue t f m)
|
-> m (NValue t f m)
|
||||||
execUnaryOp scope span op arg = do
|
execUnaryOp scope span op arg = do
|
||||||
traceM "NUnary"
|
|
||||||
case arg of
|
case arg of
|
||||||
NVConstant c -> case (op, c) of
|
NVConstant c -> case (op, c) of
|
||||||
(NNeg, NInt i ) -> unaryOp $ NInt (-i)
|
(NNeg, NInt i ) -> unaryOp $ NInt (-i)
|
||||||
|
|
Loading…
Reference in New Issue