ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/microscheme/init.scm
(Generate patch)

Comparing microscheme/init.scm (file contents):
Revision 1.29 by root, Wed Dec 2 17:01:18 2015 UTC vs.
Revision 1.30 by root, Mon Dec 7 18:10:57 2015 UTC

… …
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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines