From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 26 Nov 1994 20:00:29 +0000 (+0000)
Subject: Added fnord
X-Git-Tag: 20090517-FFI~6941
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d122519f392a87d0fe547c0ba80f37a2c8916e26;p=mit-scheme.git

Added fnord
---

diff --git a/v8/src/compiler/back/lapgn3.scm b/v8/src/compiler/back/lapgn3.scm
index 1c9129510..15252fd9b 100644
--- a/v8/src/compiler/back/lapgn3.scm
+++ b/v8/src/compiler/back/lapgn3.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: lapgn3.scm,v 1.2 1994/11/26 19:13:50 adams Exp $
+$Id: lapgn3.scm,v 1.3 1994/11/26 19:59:00 gjr Exp $
 
 Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
@@ -241,4 +241,5 @@ MIT in each case. |#
 (define (compiled-code-block/write-profile-count block count value)
   block
   count
+  value
   0)
diff --git a/v8/src/compiler/midend/copier.scm b/v8/src/compiler/midend/copier.scm
index f7fa1cc61..35130cc8f 100644
--- a/v8/src/compiler/midend/copier.scm
+++ b/v8/src/compiler/midend/copier.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: copier.scm,v 1.3 1994/11/26 19:05:34 gjr Exp $
+$Id: copier.scm,v 1.4 1994/11/26 20:00:29 gjr Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -45,6 +45,7 @@ MIT in each case. |#
        `(define ,proc-name
 	  (let ((handler (lambda ,(cons (car bindings) names) ,@body)))
 	    (named-lambda (,proc-name state form)
+	      form			; possible fnord
 	      ,code)))))))
 
 (define-copier-handler LOOKUP (state name)