From a1f9f30a93d667400cb6ca7071daffde475e5b16 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 25 May 2016 16:07:08 -0700 Subject: [PATCH] plugin optiondb.scm: Further-load-options expects a thunk. --- src/blowfish/optiondb.scm | 9 ++++----- src/gdbm/optiondb.scm | 7 ++++--- src/mcrypt/optiondb.scm | 7 ++++--- src/md5/optiondb.scm | 7 ++++--- src/mhash/optiondb.scm | 7 ++++--- 5 files changed, 20 insertions(+), 17 deletions(-) diff --git a/src/blowfish/optiondb.scm b/src/blowfish/optiondb.scm index 24ddca067..65d5735f9 100644 --- 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 12e8fe207..dc780981d 100644 --- 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 c442a1ae7..fae8b2ac2 100644 --- 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 bb18b9306..a1eb8e857 100644 --- 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 f4b04f324..61bacdc40 100644 --- 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 -- 2.25.1