From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 16 Jul 1987 10:15:36 +0000 (+0000)
Subject: Bug in generate-n-times.  It now expects a thunk rather than an instruction.
X-Git-Tag: 20090517-FFI~13247
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=aecb1269b39ff654696438ec3f576522f4a82840;p=mit-scheme.git

Bug in generate-n-times.  It now expects a thunk rather than an instruction.
Change branch types from S and L to B and W.
Bug in NMV header size.
---

diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040
index f3c7d117e..3e4578b60 100644
--- a/v7/src/compiler/machines/bobcat/make.scm-68040
+++ b/v7/src/compiler/machines/bobcat/make.scm-68040
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.31 1987/07/15 03:00:15 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.32 1987/07/16 10:15:36 jinx Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -46,11 +46,11 @@ MIT in each case. |#
     (make-environment
       (define :name "Liar (Bobcat 68020)")
       (define :version 1)
-      (define :modification 31)
+      (define :modification 32)
       (define :files)
 
 ;      (parse-rcs-header
-;       "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.31 1987/07/15 03:00:15 jinx Exp $"
+;       "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.32 1987/07/16 10:15:36 jinx Exp $"
 ;       (lambda (filename version date time zone author state)
 ;	 (set! :version (car version))
 ;	 (set! :modification (cadr version))))