suzanne.soy/2010-m1s1-compilation
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Nettoyage de "print" oubliés.

Browse Source
This commit is contained in:
Georges Dupéron 2010-11-15 03:43:23 +01:00
parent ef99d3f360
commit 41dfb5f21d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
match.lisp
View File

@ -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