artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Avoid let* in scm.mes.

Browse source 
* module/mes/scm.mes (case, max, min): Avoid let*.
This commit is contained in:
Jan Nieuwenhuizen 2016-10-21 10:52:59 +02:00
parent 37d27f66e3
commit 2926190567
1 changed files with 16 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
module/mes/scm.mes
View file

@ -31,18 +31,16 @@
(define (list . rest) rest)
(define-macro (case val . args)
(if (null? args)
#f
(let* ((clause (car args))
(pred (car clause))
(body (cdr clause)))
(if (pair? pred)
`(if ,(if (null? (cdr pred))
`(eq? ,val ',(car pred))
`(member ,val ',pred))
(begin ,@body)
(case ,val ,@(cdr args)))
`(begin ,@body)))))
(if (null? args) #f
(let ((clause (car args)))
(let ((pred (car clause)))
(let ((body (cdr clause)))
(if (pair? pred) `(if ,(if (null? (cdr pred))
`(eq? ,val ',(car pred))
`(member ,val ',pred))
(begin ,@body)
(case ,val ,@(cdr args)))
`(begin ,@body)))))))
(define-macro (when expr . body)
`(if ,expr
@ -139,15 +137,15 @@
(define (max x . rest)
(if (null? rest) x
(let* ((y (car rest))
(z (if (> x y) x y)))
(apply max (cons z (cdr rest))))))
(let ((y (car rest)))
(let ((z (if (> x y) x y)))
(apply max (cons z (cdr rest)))))))
(define (min x . rest)
(if (null? rest) x
(let* ((y (car rest))
(z (if (< x y) x y)))
(apply min (cons z (cdr rest))))))
(let ((y (car rest)))
(let ((z (if (< x y) x y)))
(apply min (cons z (cdr rest)))))))
(define gensym
(let ((counter 0))