github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-18 17:16:59 +00:00
Code Issues Releases Wiki Activity

Update LLOGO's definitions of DPRINC and DTERPRI.

Browse Source 
These will work with NEWIO.
This commit is contained in:
Lars Brinkhoff 2018-09-26 08:31:41 +02:00
parent 874a5c2c0d
commit 622009105a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/llogo/print.165
View File

@ -16,10 +16,10 @@
[(OR MULTICS DEC10) (DEFINE DPRINC (SYN PRINC))
(DEFINE DTERPRI (SYN TERPRI))]
[ITS (DEFUN DPRINC (X) (SUBRCALL NIL DPRINC X))
(DEFUN DTERPRI NIL (SUBRCALL NIL DTERPRI))
;;WATCH IT, THESE ARE LSUBRS IN NEWIO!
(SETQ DPRINC (GET 'PRINC 'SUBR) DTERPRI (GET 'TERPRI 'SUBR))]
[ITS (DEFUN DPRINC (X) (PRINC X))
(DEFUN DTERPRI NIL (TERPRI))
;;WATCH IT, PRINC AND TERPRI ARE LSUBRS IN NEWIO!
(SETQ DPRINC (GET 'DPRINC 'SUBR) DTERPRI (GET 'DTERPRI 'SUBR))]
(DEFUN DPRINT (X) (DTERPRI) (DPRIN1 X) (DPRINC '/ ))