On 3/28/06, John Cowan <[EMAIL PROTECTED]> wrote: > Alex Shinn scripsit: > > > Not a procedure, but you can > > Ah, cool. So you can define your own procedure thus: > > (cond-expand (compiling (define (compiled?) #t)) (else (define (compiled?) > #f)))
For example. Or call (test-feature? 'script) ; running via csi -s (test-feature? 'compiling) ; running as a compiler extension (-X) (test-feature? 'csi) ; running in csi cheers, felix _______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
