From e195704f00df184a20b41296dedf78949129779c Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 11 May 2013 19:15:46 +0100 Subject: [PATCH] Remove duplicated progn --- experimental/compiler.lisp | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) diff --git a/experimental/compiler.lisp b/experimental/compiler.lisp index 304b16b..ae71b55 100644 --- a/experimental/compiler.lisp +++ b/experimental/compiler.lisp @@ -56,7 +56,7 @@ ;;;; what it is because you know the name. ;;;; -;;; A leaf stands for leaf in the tree of computations. Lexical +;;; A leaf stands for a leaf in the tree of computations. Lexical ;;; variables, constants and literal functions are leafs. Leafs are ;;; not nodes itself, a `ref' node will stands for putting a leaf into ;;; a lvar, which can be used in computations. @@ -232,7 +232,7 @@ ,@body)) ;;; A few consistency checks in the IR useful for catching bugs. -(defun check-ir-consistency (&optional (component *component*)) +(defun check-ir-consistency (component) (with-simple-restart (continue "Continue execution") (do-blocks (block component) (dolist (succ (block-succ block)) @@ -445,12 +445,6 @@ (set-cursor :block join-block))) -(define-ir-translator progn (&body body) - (dolist (form (butlast body)) - (ir-convert form)) - (ir-convert (car (last body)) (result-lvar))) - - (defun ir-convert-var (form result) (let* ((leaf (make-var :name form)) (ref (make-ref :leaf leaf :lvar result))) @@ -553,7 +547,7 @@ (with-component-compilation (ir-convert form (make-lvar :id "$out")) (finish-component *component*) - (check-ir-consistency) + (check-ir-consistency *component*) (print-component *component*))) -- 1.7.10.4