From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 25 May 2016 23:07:08 +0000 (-0700)
Subject: plugin optiondb.scm: Further-load-options expects a thunk.
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~43
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a1f9f30a93d667400cb6ca7071daffde475e5b16;p=mit-scheme.git

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

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