Use new NO-ERROR optional argument to LOAD-OPTION to prevent errors if
authorChris Hanson <org/chris-hanson/cph>
Sat, 8 Oct 1994 08:57:28 +0000 (08:57 +0000)
committerChris Hanson <org/chris-hanson/cph>
Sat, 8 Oct 1994 08:57:28 +0000 (08:57 +0000)
the KRYPT option is not present.

v7/src/edwin/edwin.ldr

index 2a848c125442d37e6ec9570c8f4c1807bf5d4ab2..fa742b035e32a084f87d279b30718b15fcb24387 100644 (file)
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.ldr,v 1.48 1994/03/08 20:32:45 cph Exp $
+$Id: edwin.ldr,v 1.49 1994/10/08 08:57:28 cph Exp $
 
 Copyright (c) 1989-94 Massachusetts Institute of Technology
 
@@ -80,7 +80,7 @@ MIT in each case. |#
 
       (if (eq? (lookup 'OS-TYPE) 'UNIX)
          (begin
-           (load-option 'KRYPT)
+           (load-option 'KRYPT #t)     ;no error if not present.
            (load-option 'SUBPROCESS)))
       (load-option 'RB-TREE)
       (load-option 'HASH-TABLE)