From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 1 Feb 2017 19:06:14 +0000 (-0700)
Subject: Microcode-object/unassigned disappeared in the merge.
X-Git-Tag: mit-scheme-pucked-9.2.12~234
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8f35bbae5a4aa15ad93d78f7a3015aa19f32b1db;p=mit-scheme.git

Microcode-object/unassigned disappeared in the merge.
---

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