procgen  fail.scm at trunk

File lib/fail.scm artifact 112daec7b2 on branch trunk

; [ʞ] 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"))