… | |
… | |
710 | (* (quotient *seed* q) q))) |
710 | (* (quotient *seed* q) q))) |
711 | (* (quotient *seed* q) r))) |
711 | (* (quotient *seed* q) r))) |
712 | (if (< *seed* 0) (set! *seed* (+ *seed* m))) |
712 | (if (< *seed* 0) (set! *seed* (+ *seed* m))) |
713 | *seed*)) |
713 | *seed*)) |
714 | |
714 | |
|
|
715 | |
|
|
716 | (define-macro (aif a b c) |
|
|
717 | `(let ((it ,a)) |
|
|
718 | (if it ,b ,c))) |
|
|
719 | |
715 | ;; SRFI-0 |
720 | ;; SRFI-0 |
716 | ;; COND-EXPAND |
721 | ;; COND-EXPAND |
717 | ;; Implemented as a macro |
722 | ;; Implemented as a macro |
718 | (define *features* '(srfi-0)) |
723 | (define *features* '(srfi-0)) |
719 | |
724 | |