projects
/
mit-scheme.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7ee7d63
)
Tweak indentation.
author
Chris Hanson
<org/chris-hanson/cph>
Sun, 15 Apr 2018 08:15:53 +0000
(
01:15
-0700)
committer
Chris Hanson
<org/chris-hanson/cph>
Sun, 15 Apr 2018 08:15:53 +0000
(
01:15
-0700)
src/runtime/srfi-1.scm
patch
|
blob
|
history
diff --git
a/src/runtime/srfi-1.scm
b/src/runtime/srfi-1.scm
index c07a7d4d41a5e6f40e79da62ecf10ec68d3645ff..98d9e8fe04eb02c621765e8cd09297eea7298f2a 100644
(file)
--- a/
src/runtime/srfi-1.scm
+++ b/
src/runtime/srfi-1.scm
@@
-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)