defrec.scm -- trivial doc bug in comments.
jcontrol1.c -- signal handler stuff signal handler hacking -- added Unix signals to VM's interrupt set.
This commit is contained in:
parent
3595da3986
commit
6d8929b608
|
@ -31,15 +31,15 @@
|
|||
;;;
|
||||
;;; - Accessor procedures:
|
||||
;;; (employee:name emp)
|
||||
;;; (employee:id-number emp)
|
||||
;;; (employee:id emp)
|
||||
;;; (employee:salary emp)
|
||||
;;; (employee:department emp)
|
||||
;;; (employee:sex emp)
|
||||
;;; (employee:married? emp)
|
||||
;;;
|
||||
;;; - Setter procedures:
|
||||
;;; (set-employee:name emp)
|
||||
;;; (set-employee:id-number emp)
|
||||
;;; (set-employee:name emp "Janet Q. Random")
|
||||
;;; (set-employee:id emp 8271)
|
||||
;;; (set-employee:salary emp 20000)
|
||||
;;; (set-employee:department emp "Vaporware")
|
||||
;;; (set-employee:sex emp 'female)
|
||||
|
|
|
@ -65,7 +65,7 @@ scheme_value set_int_handler(int sig, scheme_value handler, int flags,
|
|||
}
|
||||
|
||||
*oflags = old.sa_flags;
|
||||
if( old.sa_handler == SIG_IGN ) *ohandler = SCHFALSE;
|
||||
/* if( old.sa_handler == SIG_IGN ) *ohandler = SCHFALSE;
|
||||
else if( old.sa_handler == SIG_DFL ) *ohandler = SCHTRUE;
|
||||
else if( old.sa_handler == scm_handle_sig ) {
|
||||
*ohandler = ENTER_FIXNUM(0); /* Fix later. */
|
||||
|
|
Loading…
Reference in New Issue