Tweak indentation.
authorChris Hanson <org/chris-hanson/cph>
Sun, 15 Apr 2018 08:15:53 +0000 (01:15 -0700)
committerChris Hanson <org/chris-hanson/cph>
Sun, 15 Apr 2018 08:15:53 +0000 (01:15 -0700)
src/runtime/srfi-1.scm

index c07a7d4d41a5e6f40e79da62ecf10ec68d3645ff..98d9e8fe04eb02c621765e8cd09297eea7298f2a 100644 (file)
@@ -703,7 +703,8 @@ USA.
 (define (find-tail pred list)
   (let lp ((list list))
     (and (not (null-list? list 'find-tail))
-        (if (pred (car list)) list
+        (if (pred (car list))
+            list
             (lp (cdr list))))))
 
 (define (take-while pred lis)