change output and prompt format

dragoncoder047 · dragoncoder047 · commit a5f53aff0479 · 2024-06-29T10:22:00.000-04:00
diff --git a/ulisp.hpp b/ulisp.hpp
@@ -8003,7 +8003,7 @@ void repl (object* env) {
             pfstring(" : ", pserial);
             pint(BreakLevel, pserial);
         }
-        pfstring("[Ready.]\n", pserial);
+        pfstring("[Ready.]\n> ", pserial);
         Context = NIL;
         object* line = read(gserial);
         if (BreakLevel && line == nil) { pln(pserial); return; }
@@ -8012,6 +8012,7 @@ void repl (object* env) {
         pfl(pserial);
         line = eval(line, env);
         pfl(pserial);
+        pfstring("\n=> ", pserial);
         printobject(line, pserial);
         unprotect();
         pfl(pserial);
