lasp/examples/log.lisp

(define log
    (lambda (level 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)))))

(define error (lambda (message) (log 0 message)))
(define warn (lambda (message) (log 1 message)))
(define info (lambda (message) (log 2 message)))
(define debug (lambda (message) (log 3 message)))
(define trace (lambda (message) (log 4 message)))

(info "Logger works.")