diff options
Diffstat (limited to 'testsuite/tests/lib-dynlink-bytecode/plug1.ml')
| -rw-r--r-- | testsuite/tests/lib-dynlink-bytecode/plug1.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/testsuite/tests/lib-dynlink-bytecode/plug1.ml b/testsuite/tests/lib-dynlink-bytecode/plug1.ml index 3246045170..d0490689fb 100644 --- a/testsuite/tests/lib-dynlink-bytecode/plug1.ml +++ b/testsuite/tests/lib-dynlink-bytecode/plug1.ml @@ -1,4 +1,7 @@ external stub1: unit -> string = "stub1" +let f x = print_string "This is Plug1.f\n"; x + 1 + +let () = Registry.register f let () = print_endline (stub1 ()) |