~ chicken-core (master) 4223b30426c257f3192d780b7d5e4de3a919dcfd
commit 4223b30426c257f3192d780b7d5e4de3a919dcfd
Author: felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Dec 23 16:05:58 2012 +0100
Commit: felix <felix@call-with-current-continuation.org>
CommitDate: Sun Dec 23 16:05:58 2012 +0100
trivial formatting change
diff --git a/eval.scm b/eval.scm
index 66021ee3..d3d077ea 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1078,7 +1078,8 @@
(let loop ([libs libs])
(cond [(null? libs) #f]
[(##sys#dload (##sys#make-c-string (##sys#slot libs 0) 'load-library) top)
- (unless (memq id ##sys#features) (set! ##sys#features (cons id ##sys#features)))
+ (unless (memq id ##sys#features)
+ (set! ##sys#features (cons id ##sys#features)))
#t]
[else (loop (##sys#slot libs 1))] ) ) ) ) ) ) ) )
Trap