From d122519f392a87d0fe547c0ba80f37a2c8916e26 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 26 Nov 1994 20:00:29 +0000 Subject: [PATCH] Added fnord --- v8/src/compiler/back/lapgn3.scm | 3 ++- v8/src/compiler/midend/copier.scm | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) 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) -- 2.25.1