/[meta-cvs]/meta-cvs/F-233AD6EEE14894A7303F09519A2AB734
ViewVC logotype

Diff of /meta-cvs/F-233AD6EEE14894A7303F09519A2AB734

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.97 by kaz, Mon Nov 27 02:51:45 2006 UTC revision 1.98 by kaz, Mon Nov 27 02:53:42 2006 UTC
# Line 365  Commands: Line 365  Commands:
365                        (unix-funcs:ctermid))                        (unix-funcs:ctermid))
366          (chatter-info "interactive error handling disabled.~%"))          (chatter-info "interactive error handling disabled.~%"))
367        (ext:exit (catch 'mcvs-terminate        (ext:exit (catch 'mcvs-terminate
368                    (mcvs-execute ext:*args*)                    (mcvs-execute #+clisp ext:*args*)
369                    *mcvs-errors-occured-p*)))))                    *mcvs-errors-occured-p*)))))
370    
371  (defun main-debug ()  (defun main-debug ()
372    (let ((*mcvs-error-treatment* :decline)    (let ((*mcvs-error-treatment* :decline)
373          (*interactive-error-io* *terminal-io*))          (*interactive-error-io* *terminal-io*))
374      (ext:exit (catch 'mcvs-terminate      (ext:exit (catch 'mcvs-terminate
375                  (mcvs-execute ext:*args*)                  (mcvs-execute #+clisp ext:*args*)
376                  *mcvs-errors-occured-p*))))                  *mcvs-errors-occured-p*))))

Legend:
Removed from v.1.97  
changed lines
  Added in v.1.98

  ViewVC Help
Powered by ViewVC 1.1.5