plugin optiondb.scm: Further-load-options expects a thunk.

diff --git a/src/blowfish/optiondb.scm b/src/blowfish/optiondb.scm
index 24ddca06758c5ffc8af315ef51f3743947da029f..65d5735f9277bb381bbbdf408cdd8ebf3ca04322 100644 (file)
--- a/src/blowfish/optiondb.scm
+++ b/src/blowfish/optiondb.scm
@@ -1,11 +1,10 @@
 #| -*-Scheme-*- |#
 
-;;;; Test optiondb, includes the installed system's optiondb.
-
 (define-load-option 'BLOWFISH
   (standard-system-loader "."))
 
 (further-load-options
- (merge-pathnames "optiondb"
-                 (cadr (access library-directory-path
-                               (->environment '(runtime pathname))))))
\ No newline at end of file
+ (named-lambda (system-load-options)
+   (merge-pathnames "optiondb"
+                   (cadr (access library-directory-path
+                                 (->environment '(runtime pathname)))))))
\ No newline at end of file

diff --git a/src/gdbm/optiondb.scm b/src/gdbm/optiondb.scm
index 12e8fe2070450b17916b6353e79761e1cdf5580e..dc780981d4065a7efd4bfb2fce03442a0fb9745c 100644 (file)
--- a/src/gdbm/optiondb.scm
+++ b/src/gdbm/optiondb.scm
@@ -4,6 +4,7 @@
   (standard-system-loader "."))
 
 (further-load-options
- (merge-pathnames "optiondb"
-                 (cadr (access library-directory-path
-                               (->environment '(runtime pathname))))))
\ No newline at end of file
+ (named-lambda (system-load-options)
+   (merge-pathnames "optiondb"
+                   (cadr (access library-directory-path
+                                 (->environment '(runtime pathname)))))))
\ No newline at end of file

diff --git a/src/mcrypt/optiondb.scm b/src/mcrypt/optiondb.scm
index c442a1ae74104c75f966d4533bbbc0a3327de96e..fae8b2ac23969236baf11d8817aa84a44a25fbd9 100644 (file)
--- a/src/mcrypt/optiondb.scm
+++ b/src/mcrypt/optiondb.scm
@@ -4,6 +4,7 @@
   (standard-system-loader "."))
 
 (further-load-options
- (merge-pathnames "optiondb"
-                 (cadr (access library-directory-path
-                               (->environment '(runtime pathname))))))
\ No newline at end of file
+ (named-lambda (system-load-options)
+   (merge-pathnames "optiondb"
+                   (cadr (access library-directory-path
+                                 (->environment '(runtime pathname)))))))
\ No newline at end of file

diff --git a/src/md5/optiondb.scm b/src/md5/optiondb.scm
index bb18b9306c13ca4ba63429176c3bb531923117da..a1eb8e857749c2fa345eef4c02f27614f237eca7 100644 (file)
--- a/src/md5/optiondb.scm
+++ b/src/md5/optiondb.scm
@@ -4,6 +4,7 @@
   (standard-system-loader "."))
 
 (further-load-options
- (merge-pathnames "optiondb"
-                 (cadr (access library-directory-path
-                               (->environment '(runtime pathname))))))
\ No newline at end of file
+ (named-lambda (system-load-options)
+   (merge-pathnames "optiondb"
+                   (cadr (access library-directory-path
+                                 (->environment '(runtime pathname)))))))
\ No newline at end of file

diff --git a/src/mhash/optiondb.scm b/src/mhash/optiondb.scm
index f4b04f3245e770bd717f473c25ebe3262d019bd4..61bacdc405556d671e7c6e6779d0b3b7750ac108 100644 (file)
--- a/src/mhash/optiondb.scm
+++ b/src/mhash/optiondb.scm
@@ -4,6 +4,7 @@
   (standard-system-loader "."))
 
 (further-load-options
- (merge-pathnames "optiondb"
-                 (cadr (access library-directory-path
-                               (->environment '(runtime pathname))))))
\ No newline at end of file
+ (named-lambda (system-load-options)
+   (merge-pathnames "optiondb"
+                   (cadr (access library-directory-path
+                                 (->environment '(runtime pathname)))))))
\ No newline at end of file