From 41dfb5f21d90f1d6f89e5b0353ca13028e8d9616 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Mon, 15 Nov 2010 03:43:23 +0100 Subject: [PATCH] =?UTF-8?q?Nettoyage=20de=20"print"=20oubli=C3=A9s.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- match.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/match.lisp b/match.lisp index afd46c6..3ce746c 100644 --- a/match.lisp +++ b/match.lisp @@ -640,11 +640,10 @@ donc seule la valeur de la dernière expression de la dernière clause est renvo collect from and collect `(setq ,last-state-sym ',from) and collect `(setq ,last-element-sym (car ,expr-sym)) - and collect `(print ',from) and if (member nil transitions :key #'second) - collect `(when (endp ,expr-sym) (print 'auto-accept) (go accept)) ;; TODO : aller à l'état désigné par la dernière transition "finale". + syntaxe (stateX code) => exécute le code à chaque fois qu'on rentre dans stateX. + collect `(when (endp ,expr-sym) (go accept)) ;; TODO : aller à l'état désigné par la dernière transition "finale". + syntaxe (stateX code) => exécute le code à chaque fois qu'on rentre dans stateX. else - collect `(when (endp ,expr-sym) (print 'auto-reject) (go reject)) + collect `(when (endp ,expr-sym) (go reject)) end and collect `(cond-match (car ,expr-sym) ,@(loop