Added a start event during initialisation.

2000-08-28 13:30:56 +00:00 · 2000-08-28 13:30:56 +00:00 · fa64d485bc
parent 2dbf1a07e8
commit fa64d485bc
1 changed files with 1 additions and 0 deletions
--- a/scsh/event.scm
+++ b/scsh/event.scm
@ -34,6 +34,7 @@

 ;Initialize the system.
 (define (install-event-handlers!)
+  (set! *most-recent-event* (make-event interrupt/cont))
  (let loop ((count 0))
    (if (< count number-of-interrupts)  
 	(begin