www

commit 41dfb5f21d90f1d6f89e5b0353ca13028e8d9616
parent ef99d3f36070cb56011fc74255d275a5dd6d80b7
Author: Georges Dupéron <jahvascriptmaniac+github@free.fr>
Date:   Mon, 15 Nov 2010 03:43:23 +0100

Nettoyage de "print" oubliés.

Diffstat:
M
match.lisp
 | 
5
++---

1 file changed, 2 insertions(+), 3 deletions(-)
diff --git 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