source: project/release/5/chicken-belt/trunk/utils.scm @ 35758

Last change on this file since 35758 was 35758, checked in by evhan, 2 years ago

chicken-belt: Add C5 port

File size: 366 bytes
Line 
1(import (chicken format))
2
3(define (printf-error msg . args)
4  (display "ERROR: " (current-error-port))
5  (apply fprintf (current-error-port) msg args)
6  (newline (current-error-port)))
7
8(define (printf-newline msg . args)
9  (apply printf msg args)
10  (newline))
11
12(define (fail msg . args)
13  (apply printf-error msg args)
14  (newline (current-error-port))
15  (exit 1))
Note: See TracBrowser for help on using the repository browser.