From 8f35bbae5a4aa15ad93d78f7a3015aa19f32b1db Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 1 Feb 2017 12:06:14 -0700 Subject: [PATCH] Microcode-object/unassigned disappeared in the merge. --- src/runtime/blowfish.scm | 6 ++---- src/runtime/crypto.scm | 2 +- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/src/runtime/blowfish.scm b/src/runtime/blowfish.scm index 661231f59..e582f72ae 100644 --- a/src/runtime/blowfish.scm +++ b/src/runtime/blowfish.scm @@ -30,9 +30,7 @@ USA. (declare (usual-integrations)) ;;; 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 diff --git a/src/runtime/crypto.scm b/src/runtime/crypto.scm index e00f1741d..82d73e4ef 100644 --- a/src/runtime/crypto.scm +++ b/src/runtime/crypto.scm @@ -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 -- 2.25.1