Commit e1453b63 authored by László Domoszlai's avatar László Domoszlai

set strict mode on

git-svn-id: https://svn.cs.ru.nl/repos/clean-sapl/branches/hierarchical@621 cb785ff4-4565-4a15-8565-04c4fcf96d79
parent b6fd2ed6
......@@ -680,7 +680,8 @@ generateJS f tramp saplsrc mbPst
Ok (funcs, s) # newpst = mergeParserStates s mbPst
# (funcs, newpst) = if (isSet f "enableStrictnessPropagation") (doStrictnessPropagation newpst f funcs) (funcs, newpst)
# state = newState f tramp newpst
# a = newAppender <++ "/*Trampoline: "
# a = newAppender <++ "\"use strict\";"
# a = a <++ "/*Trampoline: "
# a = if tramp (a <++ "ON") (a <++ "OFF")
# a = foldl (\a curr = a <++ funcCoder curr state) (a <++ "*/") funcs
= Ok (a, newpst)
......@@ -696,4 +697,4 @@ exprGenerateJS f tramp saplsrc mbPst out
# out = foldl (\a curr = a <++ funcCoder curr state) out s.ps_genFuns
= Ok (toString a, out, newpst)
Error msg = Error msg
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment