From d0addb3e990072a199bde65396b30eb112d3fd15 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Tue, 18 Oct 2016 19:11:14 +0200 Subject: [PATCH] Remove dead code from let.mes. * module/mes/let.mes (simple-let, named-let, let): Remove dead code. --- module/mes/let.mes | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/module/mes/let.mes b/module/mes/let.mes index d87b2be4..19ea74ba 100644 --- a/module/mes/let.mes +++ b/module/mes/let.mes @@ -18,20 +18,6 @@ ;;; You should have received a copy of the GNU General Public License ;;; along with Mes. If not, see . -(define-macro (simple-let bindings . rest) - `(,`(lambda ,(map car bindings) ,@rest) - ,@(map cadr bindings))) - -(define-macro (named-let label bindings . rest) - `(simple-let ((,label *unspecified*)) - (set! ,label (lambda ,(map car bindings) ,@rest)) - (,label ,@(map cadr bindings)))) - -(define-macro (let bindings-or-label . rest) - `(`,(if ,(symbol? bindings-or-label) - (list 'lambda '() (cons* 'named-let ,bindings-or-label ,(car rest) ,(cdr rest))) - (list 'lambda '() (cons* 'simple-let ,bindings-or-label ,rest))))) - (define-macro (xsimple-let bindings rest) `(,`(lambda ,(map car bindings) ,@rest) ,@(map cadr bindings)))