Artifact 112daec7b22274426c31a679b6e8ddfc54c5564fde694bab6200a9008cb3d884:
- File lib/fail.scm — part of check-in [294d779091] at 2019-04-17 23:45:48 on branch trunk — tidy up headers (user: lexi, size: 255) [annotate] [blame] [check-ins using]
; [ʞ] fail.scm ; generates pretty error messages (define (fail . msg) (display (string-append "\x1b[1;31m - err.\x1b[0m " (apply string-append msg))) (exit 1)) (define (fail:sym s) (fail "bad form \x1b[3;36m'" (symbol->string s) "\x1b[0m"))