Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
[enhance] bsljsparse: read normalize flag in new syntax.
  • Loading branch information
arthuraa committed Aug 28, 2012
1 parent 614aaa0 commit 71f2cc8
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions compiler/libbsl/bslJsParse.ml
Expand Up @@ -120,6 +120,7 @@ let collect_bsl_tags tags =
{t with BslTags.restricted = Some tags}
);
bool "opaName" (fun t v -> {t with BslTags.opaname = v});
bool "normalize" (fun t v -> {t with BslTags.opaname = not v});
bool "raise" (fun t v -> {t with BslTags.raise_ = v});
bool "cpsBypass" (fun t v -> {t with BslTags.cps_bypass = v});
bool "pure" (fun t v -> {t with BslTags.pure = v});
Expand Down

0 comments on commit 71f2cc8

Please sign in to comment.