Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Foreign calls always need to evaluate their arguments

  • Loading branch information...
commit 0387b7beef1b8ac694010d3e7e99876004c97891 1 parent cab41e5
Edwin Brady authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Epic/Bytecode.lhs
View
2  Epic/Bytecode.lhs
@@ -253,7 +253,7 @@ As above, but don't create a new local
> ecomp lazy tcall (ForeignCall ty fn argtypes) reg vs = do
> savetmp <- get_tmp
> let (args,types) = unzip argtypes
-> (argcode, argregs) <- ecompsEv lazy args vs
+> (argcode, argregs) <- ecompsEv (fst lazy, False) args vs
> -- let evalcode = if (snd lazy) then [] else map (\x -> EVAL x (snd lazy)) argregs
> set_tmp savetmp
> return $ argcode ++ [FOREIGN ty reg fn (zip argregs types),
Please sign in to comment.
Something went wrong with that request. Please try again.