From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 23 Mar 1989 20:43:59 +0000 (+0000)
Subject: Add optional filename argument to read-microcode-tables! to specify
X-Git-Tag: 20090517-FFI~12215
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=813ad9d257f31dc301d8955db766358b5699ceae;p=mit-scheme.git

Add optional filename argument to read-microcode-tables! to specify
a users own filename from scheme.
---

diff --git a/v7/src/runtime/utabs.scm b/v7/src/runtime/utabs.scm
index d733a7029..e54c3d3b4 100644
--- a/v7/src/runtime/utabs.scm
+++ b/v7/src/runtime/utabs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 14.1 1988/06/13 12:00:01 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 14.2 1989/03/23 20:43:59 jinx Rel $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -41,10 +41,12 @@ MIT in each case. |#
   (read-microcode-tables!)
   (add-event-receiver! event:after-restore read-microcode-tables!))
 
-(define (read-microcode-tables!)
+(define (read-microcode-tables! #!optional filename)
   (set! microcode-tables-identification
 	(scode-eval ((ucode-primitive binary-fasload)
-		     ((ucode-primitive microcode-tables-filename)))
+		     (if (default-object? filename)
+			 ((ucode-primitive microcode-tables-filename))
+			 filename))
 		    system-global-environment))
   (set! identification-vector ((ucode-primitive microcode-identify)))
   (set! errors-slot (fixed-object/name->code 'MICROCODE-ERRORS-VECTOR))