scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added a start event during initialisation.

This commit is contained in:
marting 2000-08-28 13:30:56 +00:00
parent 2dbf1a07e8
commit fa64d485bc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scsh/event.scm
View File

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