Permalink
Browse files

[fix] jsbsl: Correct propagation of the bsl tag 'pure'

  • Loading branch information...
BourgerieQuentin committed Sep 4, 2012
1 parent 475e54f commit 65e42ecc33ae33d744a50216150d1e415abcba3b
Showing with 2 additions and 2 deletions.
  1. +1 −1 compiler/libbsl/bslLib.ml
  2. +1 −1 compiler/qmljsimp/imp_Bsl.ml
@@ -1077,7 +1077,7 @@ struct
in
let body =
JsCons.Expr.call
- ~pure:true
+ ~pure:bsltags.BslTags.pure
impl
(List.map fst projected_args)
in
@@ -116,7 +116,7 @@ struct
in
(* 2 - Projection of outputs *)
let js_ret =
- JsCons.Expr.call ~pure:true id arguments
+ JsCons.Expr.call ~pure:bsltags.BslTags.pure id arguments
in
let (private_env, projected), proj_output =
match outputs private_env type_return js_ret with

0 comments on commit 65e42ec

Please sign in to comment.