050-error.scm (517B)
1 ; (error msg-bv irritant ...) writes "scheme1: error: <msg> <irritants...>" 2 ; followed by a newline to fd 2 and exits 1. Plumbed through the same 3 ; runtime_error path as every other abort so the prefix stays uniform. 4 (define (bv-from bs) 5 (let ((bv (make-bytevector (length bs) 0))) 6 (let loop ((i 0) (xs bs)) 7 (if (null? xs) bv 8 (begin (bytevector-u8-set! bv i (car xs)) 9 (loop (+ i 1) (cdr xs))))))) 10 11 ; "boom" 12 (error (bv-from '(98 111 111 109)) 42 'foo) 13 ; not reached 14 (sys-exit 0)