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

Remove dead code from let.mes.

Browse source 
* module/mes/let.mes (simple-let, named-let, let): Remove dead code.
This commit is contained in:
Jan Nieuwenhuizen 2016-10-18 19:11:14 +02:00
parent 4ff96673c7
commit d0addb3e99
1 changed files with 0 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
module/mes/let.mes
View file

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