6 files changed, 32 insertions, 32 deletions

diff --git a/examples/speech/en-random.lali b/examples/speech/en-random.lali
index 9ac271d..9deb0b0 100755
--- a/examples/speech/en-random.lali
+++ b/examples/speech/en-random.lali
@@ -23,13 +23,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)))))
 
@@ -76,7 +76,7 @@
 
    (set 'question-score target-question)
    (set 'my-words (readl))
-   (differ my-words '(f))
+   (diff my-words '(f))
    (set 'answer-score (get-answer-score
                        (map
                         (lambda (word)
@@ -85,7 +85,7 @@
    (princ "\n~")
    (newline)
    (fill
-    ((dif target-answer
+    ((diff target-answer
           (+ question-score answer-score))
      'correct)
     (f 'wrong))))
@@ -93,8 +93,8 @@
 (defun loop ()
   (set 'res (main))
   (fill
-   ((dif res 'correct) (loop))
-   ((dif res 'wrong) (prog (princ ">> wrong") (newline)))
+   ((diff res 'correct) (loop))
+   ((diff res 'wrong) (prog (princ ">> wrong") (newline)))
    (f f)))
 
 
diff --git a/examples/speech/en-random_more.lali b/examples/speech/en-random_more.lali
index fd94c6e..63c63c2 100755
--- a/examples/speech/en-random_more.lali
+++ b/examples/speech/en-random_more.lali
@@ -37,13 +37,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)))))
 
@@ -102,7 +102,7 @@
 
    (set 'question-score target-question)
    (set 'my-words (readl))
-   (differ my-words '(f))
+   (diff my-words '(f))
    (set 'answer-score (get-answer-score
                        (map
                         (lambda (word)
@@ -111,7 +111,7 @@
    (princ "\n~")
    (newline)
    (fill
-    ((dif target-answer
+    ((diff target-answer
           (+ question-score answer-score))
      'correct)
     (f 'wrong))))
@@ -119,8 +119,8 @@
 (defun loop ()
   (set 'res (main))
   (fill
-   ((dif res 'correct) (loop))
-   ((dif res 'wrong) (prog (princ ">> wrong") (newline)))
+   ((diff res 'correct) (loop))
+   ((diff res 'wrong) (prog (princ ">> wrong") (newline)))
    (f f)))
 
 
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)
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
diff --git a/examples/speech/pt-random.lali b/examples/speech/pt-random.lali
index e038f68..5454dc1 100755
--- a/examples/speech/pt-random.lali
+++ b/examples/speech/pt-random.lali
@@ -25,13 +25,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))
    (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)))))
 
@@ -83,7 +83,7 @@
 
    (set 'question-score target-question)
    (set 'my-words (readl))
-   (differ my-words '(f))
+   (diff my-words '(f))
    (set 'answer-score (get-answer-score
                        (map
                         (lambda (word)
@@ -92,7 +92,7 @@
    (princ "\n~")
    (newline)
    (fill
-    ((dif target-answer
+    ((diff target-answer
           (+ question-score answer-score))
      'correct)
     (f 'wrong))))
@@ -100,8 +100,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)))
 
 
diff --git a/examples/speech/pt-random_more.lali b/examples/speech/pt-random_more.lali
index 0c91c2c..94cd41c 100755
--- a/examples/speech/pt-random_more.lali
+++ b/examples/speech/pt-random_more.lali
@@ -37,13 +37,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)))))
 
@@ -102,7 +102,7 @@
 
    (set 'question-score target-question)
    (set 'my-words (readl))
-   (differ my-words '(f))
+   (diff my-words '(f))
    (set 'answer-score (get-answer-score
                        (map
                         (lambda (word)
@@ -111,7 +111,7 @@
    (princ "\n~")
    (newline)
    (fill
-    ((dif target-answer
+    ((diff target-answer
           (+ question-score answer-score))
      'correct)
     (f 'wrong))))
@@ -119,8 +119,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)))