refining the examples

examples/log.lisp

@@ -1,15 +1,19 @@
-(define log
+(define send-message
-    (lambda (level message)
+    (lambda (ptr-to-message length-of-message)
-        (
-            (append (message level))
-            (define ptr-to-message (ptr-to message))
-            (define length-of-message (length message))
         (asm
             (li64 r1 3)
             (li64 r2 1)
             (li64 r3 ptr-to-message)
             (li64 r4 length-of-message)
-                (eca)))))
+            (eca))))
+
+(define log
+    (lambda (level string)
+        (
+            (append (string level))
+            (define ptr-to-message (ptr-to string))
+            (define length-of-message (length string))
+            (send-message ptr-to-message length-of-message))))
 
 (define error (lambda (message) (log 0 message)))
 (define warn (lambda (message) (log 1 message)))

examples/repl.lisp

@@ -1,9 +1,14 @@
+(define println
+    (lambda (s)
+        (print
+            (append s "\n"))))
+
 (define repl 
     (lambda () (
         (print "λ -> ")
-        (print
+        (println
-            (eval
+            (append
-                (read)))
+                ("val -> "
-        (print "\n")
+                    (eval (read)))))
         (repl))))
 (repl)