Changeset 11973 in project


Ignore:
Timestamp:
09/20/08 00:20:16 (12 years ago)
Author:
felix winkelmann
Message:

there must be SOME fun in this

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
    16(define-constant +banner+ #<<EOF
    2 
    3 CHICKEN
    47(c)2008 The Chicken Team
    58(c)2000-2007 Felix L. Winkelmann
  • chicken/branches/hygienic/csi.scm

    r11401 r11973  
    103103
    104104(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+)
    105123  (print +banner+ (chicken-version #t) "\n") )
    106124
  • chicken/branches/hygienic/runtime.c

    r11769 r11973  
    41474147
    41484148  case C_fix(11):
    4149 #ifdef MACINTOSH_GUI
     4149#if defined(C_NONUNIX) || defined(__CYGWIN__)
     4150    return C_SCHEME_FALSE;
     4151#else
    41504152    return C_SCHEME_TRUE;
    4151 #else
    4152     return C_SCHEME_FALSE;
    41534153#endif
    41544154
Note: See TracChangeset for help on using the changeset viewer.