(make_lshg_connect): New argument, resource.

(main): Pass options->super.resources to make_lshg_connect.

Rev: src/lshg.c:1.26

src/lshg.c

@@ -94,11 +94,12 @@ DEFINE_COMMAND(options2info)
    (expr
      (name make_lshg_connect)
      (params
+       (resource object resource)
        (actions object object_list))
      (expr
        (lambda (options)
          ((progn actions)
-	  (gateway_init
+	  (protect resource gateway_init
 	    (connect_local (options2info options)))))))
 */
 
@@ -330,7 +331,8 @@ main(int argc, char **argv, const char** envp)
 
   {
     CAST_SUBTYPE(command, lshg_connect,
-		 make_lshg_connect(queue_to_list(&options->super.actions)));
+		 make_lshg_connect(&options->super.resources->super,
+				   queue_to_list(&options->super.actions)));
 
     COMMAND_CALL(lshg_connect, options, &discard_continuation,
 		 make_lshg_exception_handler(&default_exception_handler,