X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme-primitives.4th;h=97c098ff8ae6716db18fe94ecd8df132fdb0e722;hb=050cc9a7e651ba8eacb054283307f4d06141c302;hp=e5a7dba89f4189877e6ce6dfb21f79e40286f236;hpb=61f902750c854d52bc37a5903e07b7e84f7081c4;p=scheme.forth.jl.git

diff --git a/scheme-primitives.4th b/scheme-primitives.4th
index e5a7dba..97c098f 100644
--- a/scheme-primitives.4th
+++ b/scheme-primitives.4th
@@ -358,7 +358,7 @@ defer display
 :noname ( args -- none )
     2dup 1 ensure-arg-count
 
-    car print cr
+    car print
 
     none
 ; make-primitive write
@@ -388,7 +388,7 @@ defer display
     2dup 1 ensure-arg-count
     car string-type ensure-arg-type
 
-    (printstring) cr
+    (printstring)
 
     none
 ; make-primitive display-string
@@ -397,7 +397,7 @@ defer display
     2dup 1 ensure-arg-count
     car character-type ensure-arg-type
 
-    displaychar cr
+    displaychar
 
     none
 ; make-primitive display-character
@@ -406,7 +406,7 @@ defer display
     2dup 1 ensure-arg-count
     car
 
-    display cr
+    display
 
     none
 ; make-primitive display