Changeset 11973 in project
- Timestamp:
- 09/20/08 00:20:16 (12 years ago)
- Location:
- chicken/branches/hygienic
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/branches/hygienic/banner.scm
r9204 r11973 1 ;;;; banner.scm 2 3 4 (define-constant +product+ "CHICKEN") 5 1 6 (define-constant +banner+ #<<EOF 2 3 CHICKEN4 7 (c)2008 The Chicken Team 5 8 (c)2000-2007 Felix L. Winkelmann -
chicken/branches/hygienic/csi.scm
r11401 r11973 103 103 104 104 (define (print-banner) 105 (newline) 106 (when (and (tty-input?) (##sys#fudge 11)) 107 (let* ((t (string-copy +product+)) 108 (len (string-length t)) 109 (c (make-string len #\x08))) 110 (do ((i (sub1 (* 2 len)) (sub1 i))) 111 ((zero? i)) 112 (let* ((p (abs (- i len))) 113 (o (string-ref t p))) 114 (string-set! t p #\@) 115 (print* t) 116 (string-set! t p o) 117 (let ((t0 (+ (current-milliseconds) 40))) 118 (let loop () ; crude, but doesn't need srfi-18 119 (when (< (current-milliseconds) t0) 120 (loop)))) 121 (print* c) ) ) ) ) 122 (print +product+) 105 123 (print +banner+ (chicken-version #t) "\n") ) 106 124 -
chicken/branches/hygienic/runtime.c
r11769 r11973 4147 4147 4148 4148 case C_fix(11): 4149 #ifdef MACINTOSH_GUI 4149 #if defined(C_NONUNIX) || defined(__CYGWIN__) 4150 return C_SCHEME_FALSE; 4151 #else 4150 4152 return C_SCHEME_TRUE; 4151 #else4152 return C_SCHEME_FALSE;4153 4153 #endif 4154 4154
Note: See TracChangeset
for help on using the changeset viewer.