Always use new library DB for R7RS source.

(cherry picked from commit 34c53e28f5b92e6578ce9e74bdc917ff89889b5b)

diff --git a/src/sf/toplev.scm b/src/sf/toplev.scm
index 85f05ee898e60462c2b566eebc16db194961a283..9d1bd171682f2f0eec4caa479c4741e64779edbe 100644 (file)
--- a/src/sf/toplev.scm
+++ b/src/sf/toplev.scm
@@ -292,7 +292,7 @@ USA.
   (in-phase "Syntax"
     (lambda ()
       (if (r7rs-source? s-expressions)
-         (syntax-r7rs-source s-expressions (current-library-db))
+         (syntax-r7rs-source s-expressions (new-library-db))
          (syntax* (if (null? declarations)
                       s-expressions
                       (cons (cons (close-syntax 'declare