[fix] jsparse: lex comments in String.

MLstate · Aug 17, 2012 · 7523ad9 · 7523ad9
1 parent 8aef34e
commit 7523ad9
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/compiler/jslang/jsParse.ml b/compiler/jslang/jsParse.ml
@@ -633,7 +633,8 @@ let stream_of_file lex_comments file =
 module String =
 struct
   let code ?throw_exn str =
-    build_parser ?throw_exn code (JsLex.stream_of_string str)
+    build_parser ?throw_exn code
+      (JsLex.stream_of_string ~lex_comments:true str)
   let expr ?throw_exn ?globalize str =
     build_parser ?throw_exn ~globalize:(global_expr ?globalize)
       expr (JsLex.stream_of_string ~lex_comments:true str)