when-random   macro


Defined in:  https://github.com/lambdamusic/extempore-extensions/blob/main/init/init_lisp.xtm

Implementation

;; (when (> (random) .1) (print 'ca) (print 'ciao))
(define-macro (when-random x . args )
   `(when (> (random) ,x)
        (begin ,@args)))


Back to Index