X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=pa_goal.ml;h=86f67db8aac6fef0bb419a5e3a233dca1a86b7f7;hb=9a049cb107efab5b03dae694d8c7bf9b97655450;hp=723df1bda97b9b2aac1952b44712099538157c7e;hpb=a0bf80d39e5dbb7daac3c28ab546a2c3ae1312a6;p=goaljobs.git

diff --git a/pa_goal.ml b/pa_goal.ml
index 723df1b..86f67db 100644
--- a/pa_goal.ml
+++ b/pa_goal.ml
@@ -111,7 +111,7 @@ let generate_let_goal _loc (r : rec_flag) (lets : binding) =
           let () = publish $str:name$ (
             function
             | [] ->
-              Goaljobs.require ($lid:gname$ ())
+              Goaljobs.require $lid:gname$
             | _ ->
               failwith (Printf.sprintf "goal '%s' does not take any arguments"
                           $str:name$);
@@ -120,7 +120,7 @@ let generate_let_goal _loc (r : rec_flag) (lets : binding) =
       StSem (_loc, stmt, publish_name)
   ) stmts !autopublish
 
-(* Rewrite 'require (name args...)' as 'require (goal_name args)'.
+(* Rewrite 'require (name args...)' as 'require (fun () -> goal_name args)'.
  * 'expr' is a function call.
  *)
 let generate_require _loc expr =
@@ -137,7 +137,7 @@ let generate_require _loc expr =
       locfail _loc "require (...) expression must contain a call to a goal"
   in
   let expr = rewrite expr in
-  <:expr< Goaljobs.require ($expr$) >>
+  <:expr< Goaljobs.require (fun () -> $expr$) >>
 
 ;;