1 files changed, 3 insertions, 3 deletions

diff --git a/src/eurm.ml b/src/eurm.ml
index c571384..7d6c2c6 100644
--- a/src/eurm.ml
+++ b/src/eurm.ml
@@ -11,12 +11,12 @@ let compile_stage2 eurmcmds state = eurmcmds, state
 let compile_stage3 eurmcmds state = eurmcmds, state
 let compile_stage4 eurmcmds state = [URMZero(0)], state
 
-let urm_from_eurm =
+let urm_from_eurm eurmcmds =
   let chain transform (eurmcmds, compile_state) = transform eurmcmds compile_state
   and initial_state = 0
-  in (compile_preprocess, initial_state)
+  in (compile_preprocess eurmcmds, initial_state)
      |> chain compile_stage1
      |> chain compile_stage2
      |> chain compile_stage3
      |> chain compile_stage4
-
+     |> fst