From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 27 Aug 1992 06:32:33 +0000 (+0000)
Subject: Add direct bios driver for DOS version of CScheme.
X-Git-Tag: 20090517-FFI~9072
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c45e44976812e96e6ae3da8a26ad467503607a2b;p=mit-scheme.git

Add direct bios driver for DOS version of CScheme.
---

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 359cb9582..9852a0524 100644
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.38 1992/05/26 16:09:32 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.39 1992/08/27 06:32:33 jinx Exp $
 
-Copyright (c) 1989-92 Massachusetts Institute of Technology
+Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -52,7 +52,9 @@ MIT in each case. |#
 			   (list-transform-positive dependencies
 			     (if source-time
 				 (lambda (dependency)
-				   (< source-time (bin-time dependency)))
+				   (let ((bin-time (bin-time dependency)))
+				     (or (not bin-time)
+					 (< source-time bin-time))))
 				 (lambda (dependency)
 				   dependency ;ignore
 				   true))))))))
@@ -79,6 +81,7 @@ MIT in each case. |#
        (sf-class (sf-dependent 'class-syntax-table)))
   (for-each sf-global
 	    '("ansi"
+	      "bios"
 	      "class"
 	      "clscon"
 	      "clsmac"
@@ -205,4 +208,4 @@ MIT in each case. |#
   (sf-class "bufwfs" "bufwin" "utlwin" "window" "class" "buffer" "struct")
   (sf-class "bufwiu" "bufwin" "utlwin" "window" "class" "buffer" "struct")
   (sf-class "bufwmc" "bufwin" "utlwin" "window" "class" "buffer" "struct")
-  (sf-class "buffrm" "bufwin" "window" "class" "struct"))
+  (sf-class "buffrm" "bufwin" "window" "class" "struct"))
\ No newline at end of file