fix some routines.

config/options.tal

@@ -19,11 +19,11 @@ DISABLE @UNICODE-BANNER ( disabling this option will print an ascii banner )
 
 (
 &|logger )
-DEBUG @LOG-LEVEL ( valid values: OFF ERROR INFO WARN DEBUG ( most verbose ) )
+OFF @LOG-LEVEL ( valid values: OFF ERROR INFO WARN DEBUG ( most verbose ) )
 ENABLE @ERROR-ABORT ( print an error each time an evaluation is aborted )
 ENABLE @INFO-STACKS ( print stacks after each evaluation )
 ENABLE @INFO-PROMPT ( print the heap's `head` pointer inside the prompt )
-ENABLE @INFO-ASSEMBLER-SUMMARY ( print the assembled definition summary )
+DISABLE @INFO-ASSEMBLER-SUMMARY ( print the assembled definition summary )
 ENABLE @WARN-REDEFINITION ( warn on each redefinition )
 
 (

lib/string/routines.tal

@@ -329,14 +329,26 @@
 		[ LIT &count $1 ] INC ,&count STR
 		STH BRK
 
-@echo
-	;&prompt pstr
+@psts ( chr-1 ... chr-n count -- )
+	#00
 	&loop
-	key DUP #0a EQU ?{
-		#18 DEO !&loop
-	}
-	#18 DEO
+		ROT
+		#18 DEO
+		INC GTHk ?&loop
+	POP2
 	JMP2r
+
+@echo
+	;&prompt pstr &
+	;&on-echo .Console/vector DEO2
+	BRK
+
+	&on-echo ( -> )
+		.Console/read DEI DUP #0a EQU ?{
+			#18 DEO BRK }
+		#18 DEO
+		JMP2r
+
 	&prompt
 		"echo> \s \0