Errors in %event.c, %lock.c

[Chris Double <chris@xxxxxxxxxxxx>]

Some mismatches in %event.c and event.goo:

(dm event-broadcast (e|<event> l|<lock>)
  (%event-broadcast (%lu (event-handle e)) (%lu (lock-handle l))) #t)

P YtimeSeventYPevent_broadcast (P handle) { return PNUL; }

The Goo definition sends two arguments to %event-broadcast. The C
definition accepts only one. Ditto with event-signal.

Some mismatches in %lock.c and lock.goo:

(dm new (x|(t< <lock>) args|... => <lock>)
  (def l (app-sup x args))
  (set (lock-handle l) (%lb (%lock-create)))
  l)

P YtimeSlockYPlock_create (P name) { return PNUL; }

The Goo definition sends no arguments. The C definition takes a name.

There's a few others too. A couple of the -setter C definitions only
take one argument when they should take two.

Chris.