~ chicken-core (chicken-5) 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