File tree Expand file tree Collapse file tree 1 file changed +0
-3
lines changed Expand file tree Collapse file tree 1 file changed +0
-3
lines changed Original file line number Diff line number Diff line change @@ -298,13 +298,11 @@ callFunc fun arg = demand fun $ \fun' -> do
298298 " Function call stack exhausted"
299299 case fun' of
300300 NVClosure params f -> do
301- traceM $ " callFunc:NVFunction taking " ++ show params
302301 f arg
303302 NVBuiltin name f -> do
304303 span <- currentPos
305304 withFrame Info (Calling @ m @ t name span ) (f arg)
306305 s@ (NVSet m _) | Just f <- M. lookup " __functor" m -> do
307- traceM " callFunc:__functor"
308306 demand f $ (`callFunc` s) >=> (`callFunc` arg)
309307 x -> throwError $ ErrorCall $ " Attempt to call non-function: " ++ show x
310308
@@ -316,7 +314,6 @@ execUnaryOp
316314 -> NValue t f m
317315 -> m (NValue t f m )
318316execUnaryOp scope span op arg = do
319- traceM " NUnary"
320317 case arg of
321318 NVConstant c -> case (op, c) of
322319 (NNeg , NInt i ) -> unaryOp $ NInt (- i)
You can’t perform that action at this time.
0 commit comments