replace ap function name to algo

1 files changed, 2 insertions, 2 deletions

diff --git a/examples/speech/pt-random_more.lali b/examples/speech/pt-random_more.lali
index 37155e1..0c91c2c 100755
--- a/examples/speech/pt-random_more.lali
+++ b/examples/speech/pt-random_more.lali
@@ -38,13 +38,13 @@
 (defun assoc (el lst)
   (fill
    ((dif el (car (car lst))) (car lst))
-   ((ap lst) '(f f))
+   ((algo lst) '(f f))
    (f (assoc el (cdr lst)))))
 
 (defun without (el lst)
   (fill
    ((dif el (car lst)) f)
-   ((ap (car lst)) t)
+   ((algo (car lst)) t)
    (f (without el (cdr lst)))))
 
 ;; vv begin of training options vv