Microcode-object/unassigned disappeared in the merge.
authorMatt Birkholz <puck@birchwood-abbey.net>
Wed, 1 Feb 2017 19:06:14 +0000 (12:06 -0700)
committerMatt Birkholz <puck@birchwood-abbey.net>
Wed, 1 Feb 2017 19:06:14 +0000 (12:06 -0700)
src/runtime/blowfish.scm
src/runtime/crypto.scm

index 661231f595a3cc4d8ec85280fd943937e466294b..e582f72ae1173c6e7fe0ead2e64dca5e85e3f89e 100644 (file)
@@ -30,9 +30,7 @@ USA.
 (declare (usual-integrations))
 \f
 ;;; This package now autoloads the blowfish plugin, which updates the
-;;; bindings here.
-
-;;; bindings during blowfish-available?.  During a restore, the
+;;; bindings during blowfish-available?.  During a restore the
 ;;; bindings are un-assigned.  Restored threads in the midst of using
 ;;; the blowfish library thus quickly signal unassigned and can
 ;;; restart or abort as appropriate.  It is assumed a restart begins
@@ -54,7 +52,7 @@ USA.
   (let ((env (->environment '(runtime blowfish))))
     (for-each
       (lambda (name)
-       (environment-assign! env name (microcode-object/unassigned)))
+       (environment-assign! env name #!default))
       '(blowfish-cbc
        blowfish-cfb64
        blowfish-ecb
index e00f1741d68bf18f96295deb20329b123443c9d6..82d73e4efba0cfe2aaaa09dec4382ece4b746b1c 100644 (file)
@@ -67,7 +67,7 @@ USA.
   (let ((env (->environment '(runtime crypto))))
     (for-each
       (lambda (name)
-       (environment-assign! env name (microcode-object/unassigned)))
+       (environment-assign! env name #!default))
       '(
        ;; mcrypt
        mcrypt-algorithm-name