diff --git a/scsh/defrec.scm b/scsh/defrec.scm index 7d09bd1..992886e 100644 --- a/scsh/defrec.scm +++ b/scsh/defrec.scm @@ -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) diff --git a/scsh/jcontrol1.c b/scsh/jcontrol1.c index ca725cc..6195947 100644 --- a/scsh/jcontrol1.c +++ b/scsh/jcontrol1.c @@ -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. */