changed goldfish/liii/list.scm

LiiiLabs · Sep 3, 2024 · d66a9ee · d66a9ee
1 parent 7389c47
commit d66a9ee
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/goldfish/liii/list.scm b/goldfish/liii/list.scm
@@ -35,15 +35,15 @@
   ; Liii List extensions
   list-view flatmap
   list-null? list-not-null? not-null-list?
-  length=
+  length=?
 )
 (import (srfi srfi-1))
 (begin
 
 (define (length=? x scheme-list)
   (cond ((and (= x 0) (null? scheme-list)) #t)
         ((or (= x 0) (null? scheme-list)) #f)
-        (else (length= (- x 1) (cdr scheme-list)))))
+        (else (length=? (- x 1) (cdr scheme-list)))))
 
 (define (list-view scheme-list)
   (define (f-inner-reducer scheme-list filter filter-func rest-funcs)
@@ -55,7 +55,7 @@
                             (cddr rest-funcs)))))
   (define (f-inner . funcs)
     (cond ((null? funcs) scheme-list)
-          ((length= 2 scheme-list)
+          ((length=? 2 scheme-list)
            (list-view ((car funcs) (cadr funcs) scheme-list)))
           ((even? (length funcs))
            (f-inner-reducer scheme-list