1 files changed, 6 insertions, 6 deletions
diff --git a/examples/speech/pt-fixed_answer.lali b/examples/speech/pt-fixed_answer.lali
index 0002672..b500975 100755
--- a/examples/speech/pt-fixed_answer.lali
+++ b/examples/speech/pt-fixed_answer.lali
@@ -18,13 +18,13 @@
 
 (defun assoc (el lst)
   (fill
-   ((dif el (car (car lst))) (car lst))
+   ((diff el (car (car lst))) (car lst))
    ((algo lst) '(f f))
    (f (assoc el (cdr lst)))))
 
 (defun without (el lst)
   (fill
-   ((dif el (car lst)) f)
+   ((diff el (car lst)) f)
    ((algo (car lst)) t)
    (f (without el (cdr lst)))))
 
@@ -72,14 +72,14 @@
 
    (set 'question-score target-question)
    (set 'my-reply (readl))
-   (differ my-reply '(f))
+   (diff my-reply '(f))
    (set 'answer-score (get-answer-score
                        (map
                         (lambda (word)
                           (car (cdr (assoc word reply))))
                         my-reply)))
    (fill
-    ((dif target-answer
+    ((diff target-answer
           (+ question-score answer-score))
      'correct)
     (f 'wrong))))
@@ -87,8 +87,8 @@
 (defun loop ()
   (set 'res (main))
   (fill
-   ((dif res 'correct) (loop))
-   ((dif res 'wrong) (prog (princ ">> errado") (newline)))
+   ((diff res 'correct) (loop))
+   ((diff res 'wrong) (prog (princ ">> errado") (newline)))
    (f f)))
 
 (loop)