Merge pull request #258 from venomix666/lbforth

Change CR word to emit both CR and LF

Author: davidgiven

third_party/lbforth/lbforth.c

@@ -120,7 +120,7 @@ const char *initScript =
     ": / /MOD NIP ;\n"
     ": MOD /MOD DROP ;\n"
     ": BL 32 ;\n"
-    ": CR 10 EMIT ;\n"
+    ": CR 13 EMIT 10 EMIT ;\n"
     ": SPACE BL EMIT ;\n"
     ": NEGATE 0 SWAP - ;\n"
     ": DNEGATE 0. 2SWAP D- ;\n"
@@ -677,6 +677,7 @@ BUILTIN(38, "QUIT", quit, 0)
                 tell("Unknown word: ");
                 for (i=0; i<memory[0]; i++)
                     putkey(memory[i+1]);
+                putkey('\r');
                 putkey('\n');
 
                 *sp = *rsp = 1;
@@ -886,7 +887,7 @@ BUILTIN(58, "*/", timesDivide, 0)
     push((cell)r);
     if ((cell)r != r)
     {
-        tell("Arithmetic overflow\n");
+        tell("Arithmetic overflow\r\n");
         errorFlag = 1;
     }
 }
@@ -902,7 +903,7 @@ BUILTIN(59, "*/MOD", timesDivideMod, 0)
     push((cell)r);
     if ((cell)r != r)
     {
-        tell("Arithmetic overflow\n");
+        tell("Arithmetic overflow\r\n");
         errorFlag = 1;
     }
 }