From 622009105a71f50d8346544e4be9eb3f7b272baa Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 26 Sep 2018 08:31:41 +0200
Subject: [PATCH] Update LLOGO's definitions of DPRINC and DTERPRI.

These will work with NEWIO.
---
 src/llogo/print.165 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/llogo/print.165 b/src/llogo/print.165
index e4743e48..6ff28124 100644
--- a/src/llogo/print.165
+++ b/src/llogo/print.165
@@ -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 '/ ))