github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-20 16:38:16 +00:00
Code Issues Releases Wiki Activity

Replace use of obsolete SSTATUS INTERRUPT.

Browse Source
This commit is contained in:
Lars Brinkhoff
2018-09-24 21:35:27 +02:00
parent 7847aa5839
commit 0355e52a46
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/llogo/error.x
View File

@@ -425,7 +425,7 @@
;;*PAGE
(SSTATUS INTERRUPT 16. 'TOGGLE-WORLD)
(SSTATUS TTYINT #^^ 'TOGGLE-WORLD)
(DEFUN TOGGLE-WORLD (IGNORE)
;;^^ SWITCHES BACK AND FORTH BETWEEN LOGO AND LISP.
@@ -439,7 +439,7 @@
[ITS (DO I (LISTEN) (1- I) (= I 0.) (TYI))]
(LISP))))
(SSTATUS INTERR 1. 'CONTROL-H-BREAK)
(SSTATUS TTYINT #^H 'CONTROL-H-BREAK)
(DEFUN CONTROL-H-BREAK (^H)
;;^H ENTERS A LISP BREAK FROM EITHER LOGO OR LISP.
@@ -451,7 +451,7 @@
(EXPR-FUNCTION DPRINC)
'LISP-BREAK-LOOP))
(SSTATUS INTERRUPT 2. 'CONTROL-A-BREAK)
(SSTATUS TTYINT #^A 'CONTROL-A-BREAK)
(DEFUN CONTROL-A-BREAK (USELESS)
;;CONTROL-A ENTERS A LOGO BREAK.
@@ -579,7 +579,7 @@
(LISP-ERROR (LIST (CAR ERRS)
'"IS AN UNDEFINED PROCEDURE")))
(SSTATUS INTERRUPT 5. 'UNDF-FNCTN)
(SETQ UNDF-FNCTN 'UNDF-FNCTN)
(DEFUN WRNG-TYPE-ARG (ERRS)
(LET
@@ -597,7 +597,7 @@
UNHAPPY-FUNCTION
'"IS OF THE WRONG TYPE"))))))
(SSTATUS INTERRUPT 7. 'WRNG-TYPE-ARG)
(SETQ WRNG-TYPE-ARG 'WRNG-TYPE-ARG)
(DEFUN UNSEEN-GO-TAG (ERRS)
(LISP-ERROR
@@ -606,7 +606,7 @@
'"YOU TRIED TO USE A BREAKPOINT FUNCTION BUT YOU'RE NOT IN A BREAKPOINT")
((LIST (CAR ERRS) '"IS AN UNDEFINED TAG")))))
(SSTATUS INTERRUPT 8. 'UNSEEN-GO-TAG)
(SETQ UNSEEN-GO-TAG 'UNSEEN-GO-TAG)
(DEFUN ERRORFRAME NIL (AND (ERRFRAME NIL) (CADR (ERRFRAME NIL))))
@@ -701,11 +701,11 @@
((LIST '"WRONG NUMBER OF INPUTS TO "
(UNPARSE-FUNCTION-NAME CULPRIT))))))
(SSTATUS INTERRUPT 9. 'WRONG-NO-ARGS)
(SETQ WRNG-NO-ARGS 'WRONG-NO-ARGS)
(*RSET T)
(SSTATUS INTERRUPT 18. 'FASLOADER)
;(SSTATUS INTERRUPT 18. 'FASLOADER)
(DEFUN FASLOADER (FILE)
;;REDEFINE AUTOMATIC FASLOADER FOR TRACE, GRIND, LAP, ETC. TO FASLOAD STUFF
@@ -725,7 +725,7 @@
(APPLY 'CRUNIT CRUNIT)
(APPLY 'SSTATUS (CONS 'CRFILE CRFILE))))
(SSTATUS INTERRUPT 19. NIL)
(SETQ *RSET-TRAP NIL)
;;RSET BREAK TURNED OFF. HENCE, EXECUTING (LISP) WILL NOT RESULT IN BREAK. RSET
;;SERVICES ERRORS THAT REACH THE TOPLEVEL.
@@ -773,4 +773,4 @@
(APPLY 'CRUNIT CRUNIT)
(APPLY 'SSTATUS (CONS 'CRFILE CRFILE)))
'";THANK YOU FOR YOUR PATIENCE.")]