Remove dead code from let.mes.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 18 Oct 2016 17:11:14 +0000 (19:11 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 18 Oct 2016 17:11:14 +0000 (19:11 +0200)
* module/mes/let.mes (simple-let, named-let, let): Remove dead code.

module/mes/let.mes

index d87b2be4a011046bb698bdaf0d0f97e66af3fbf8..19ea74bac26687bf64d80c379ea4532378c851bb 100644 (file)
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-(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)))
 (define-macro (xsimple-let bindings rest)
   `(,`(lambda ,(map car bindings) ,@rest)
     ,@(map cadr bindings)))