Merge pull request #1 from Ismael-VC/dev2

Dev2

config/pre-options.tal

@@ -46,7 +46,7 @@ ENABLE PRINT-BANNER ( print TalOS banner on startup )
 
 (
 &|logger )
-OFF LOG-LEVEL ( valid values: OFF INFO WARN DEBUG ( most verbose ) )
+DEBUG LOG-LEVEL ( valid values: OFF INFO WARN DEBUG ( most verbose ) )
 
 ENABLE INFO-STACKS ( print stacks after each evaluation )
 ENABLE INFO-PROMPT ( print the heap's `head` pointer inside the prompt )
@@ -63,7 +63,7 @@ ENABLE WARN-REDEFINITION ( warn on each redefinition )
 DISABLE DEBUG-LENGTH ( print the assembled bytecode `length` )
 DISABLE DEBUG-HEAD-POINTER ( print the head pointer )
 DISABLE DEBUG-TAIL-POINTER ( print the tail pointer )
-DISABLE DEBUG-INPUT ( print the input buffer )
+ENABLE DEBUG-INPUT ( print the input buffer )
 DISABLE DEBUG-HEAP ( print the heap )
 DISABLE DEBUG-SYMBOLS ( print the symbols )
 #endif

lib/string/macros.tal

@@ -63,7 +63,7 @@
 %\fg-3 { \CSI "38;2; \color-3 "m }
 
 %\reset-console-style { \CSI "m }
-%\reset-console-cursor { \CSI "d }
+%\reset-console-cursor { \CSI "H }
 %\clear-console-screen { \CSI "2J }
 %\clear-console-screen-right { \CSI "J }
 %\console-cursor-up { \CSI "A }

src/repl/routines.tal

@@ -9,7 +9,11 @@
 	;&in-csi LDA phex/byte <\n> DUP phex/byte LIT ": \emit <\s> )
 
 	[ LIT &comment 01 ] ?{
-		POP BRK }
+		DUP #29 NEQ ?{ #01 ;&comment STA }
+		\emit BRK }
+
+	DUP #28 NEQ ?{
+		#00 ;&comment STA \emit BRK }
 
 	DUP #7f NEQ ?{    ( DELETE )
 		;input ;input-ptr LDA2 NEQ2 ?{
@@ -90,12 +94,10 @@
 	DUP #04 NEQ ?{    ( 04  ^D -> EOT )
 		bye }
 	DUP #0c NEQ ?{    ( 0c  ^L -> FORM-FEED )
-		pstr: \reset-console-cursor \clear-console-screen \0
+		pstr: \clear-console-screen \reset-console-cursor \0
 		<print-pre-prompt>
 		POP BRK }
 	DUP LIT "@ NEQ ?{ #01 ;&expression STA }
-	DUP #28 NEQ ?{ #00 ;&comment STA }
-	DUP #29 NEQ ?{ #01 ;&comment STA }
 
 	[ LIT &in-esc 01 ] ?{
 		#01 ,&in-esc STR