Added fnord

diff --git a/v8/src/compiler/back/lapgn3.scm b/v8/src/compiler/back/lapgn3.scm
index 1c9129510e71250865ab9f954c900994af71579b..15252fd9b2c8461e8696f91d51ead85af88eaac0 100644 (file)
--- 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 f7fa1cc61334a4101a6480a28827cabd2d6e2d7b..35130cc8f12a34a2940a0874fa63ca98ff274d7b 100644 (file)
--- 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)