Update interpreter/script/js.ml

WebAssembly · Nov 14, 2023 · c128737 · c128737
1 parent ebd1d7c
commit c128737
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/interpreter/script/js.ml b/interpreter/script/js.ml
@@ -597,9 +597,7 @@ let of_command mods cmd =
       match def.it with
       | Textual m -> m
       | Encoded (_, bs) -> Decode.decode "binary" bs
-      | Quoted (_, s) ->
-          let _v, m = Parse.Module.from_string s in
-          unquote m
+      | Quoted (_, s) -> unquote (snd (Parse.Module.from_string s))
     in bind mods x_opt (unquote def);
     "let " ^ current_var mods ^ " = instance(" ^ of_definition def ^ ");\n" ^
     (if x_opt = None then "" else