FIX: using split-lines native (until split will not be native as …

…well)
Oldes · Jul 12, 2022 · 17b4855 · 17b4855
1 parent 9dccbaf
commit 17b4855
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/mezz/prot-smtp.reb b/src/mezz/prot-smtp.reb
@@ -154,7 +154,7 @@ sync-smtp-handler: function [event][
 			parse response [copy code: 3 digit to end (code: to integer! code)]
 
 			if system/options/log/smtp > 1 [
-				foreach line split trim/tail response CRLF [
+				foreach line split-lines trim/tail response [
 					sys/log/more 'SMTP ["Server:^[[32m" line]
 				]
 			]

diff --git a/src/mezz/sys-base.reb b/src/mezz/sys-base.reb
@@ -237,7 +237,7 @@ log: func [
 ][
 	if error [
 		msg: form either block? msg [reduce msg][msg]
-		foreach line split msg #"^/" [
+		foreach line split-lines msg [
 			print ajoin [
 				" ^[[35m[" id "] ^[[1m"
 				either line/1 = #"*" []["** Error: "]