diff options
| author | Daniel Cerqueira <dan.git@lispclub.com> | 2026-08-16 12:59:14 +0100 |
|---|---|---|
| committer | Daniel Cerqueira <dan.git@lispclub.com> | 2026-08-16 13:37:34 +0100 |
| commit | 8cfffbeccdab028f780dcaf9f4ffaf97d7393a1e (patch) | |
| tree | 17c734d83e40be785cbec3ca2df8c069474f5a5e /examples/speech/pt-identify.lali | |
| parent | 92b27832dbbe786c857e5fb461e218d370c14058 (diff) | |
add diff operatorv.0.0.0
- and remove and diff and differ
- and update documentation
- and update all lali scripts
Diffstat (limited to 'examples/speech/pt-identify.lali')
| -rwxr-xr-x | examples/speech/pt-identify.lali | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/examples/speech/pt-identify.lali b/examples/speech/pt-identify.lali index bef74ef..7dd69b6 100755 --- a/examples/speech/pt-identify.lali +++ b/examples/speech/pt-identify.lali @@ -12,7 +12,7 @@ (defun assoc (number lst) (fill - ((dif number (car (car lst))) (car lst)) + ((diff number (car (car lst))) (car lst)) ((algo lst) f) (f (assoc number (cdr lst))))) @@ -35,7 +35,7 @@ (set 'it-quest (assoc target-question question)) (princ (car (cdr it-quest))) (princ "\b?") - (not (dif (read) (car (cdr (cdr it-quest))))))) + (not (diff (read) (car (cdr (cdr it-quest))))))) (defun loop () (fill |