From: Chris Hanson Date: Tue, 12 Oct 1993 23:52:08 +0000 (+0000) Subject: Fix think-o in last change. X-Git-Tag: 20090517-FFI~7773 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ef50bf1bac2a3639f12ac6338d9de4dd8ad6cfd3;p=mit-scheme.git Fix think-o in last change. --- diff --git a/v7/src/compiler/machines/C/decls.scm b/v7/src/compiler/machines/C/decls.scm index 63d89db03..3a0f021f7 100644 --- a/v7/src/compiler/machines/C/decls.scm +++ b/v7/src/compiler/machines/C/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: decls.scm,v 1.2 1993/10/12 07:28:45 cph Exp $ +$Id: decls.scm,v 1.3 1993/10/12 23:51:02 cph Exp $ Copyright (c) 1992-93 Massachusetts Institute of Technology @@ -72,10 +72,9 @@ MIT in each case. |# (set! source-hash (make-string-hash-table)) (set! source-nodes (map (lambda (filename) - (if (not (hash-table/get source-hash filename #f)) - (hash-table/put! source-hash - filename - (make/source-node filename)))) + (let ((node (make/source-node filename))) + (hash-table/put! source-hash filename node) + node)) source-filenames)) (initialize/syntax-dependencies!) (initialize/integration-dependencies!) diff --git a/v7/src/compiler/machines/alpha/decls.scm b/v7/src/compiler/machines/alpha/decls.scm index d8d03a4b0..0a18054cb 100644 --- a/v7/src/compiler/machines/alpha/decls.scm +++ b/v7/src/compiler/machines/alpha/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: decls.scm,v 1.4 1993/10/12 07:29:16 cph Exp $ +$Id: decls.scm,v 1.5 1993/10/12 23:51:11 cph Exp $ Copyright (c) 1992-93 Digital Equipment Corporation (D.E.C.) @@ -74,10 +74,9 @@ case. (set! source-hash (make-string-hash-table)) (set! source-nodes (map (lambda (filename) - (if (not (hash-table/get source-hash filename #f)) - (hash-table/put! source-hash - filename - (make/source-node filename)))) + (let ((node (make/source-node filename))) + (hash-table/put! source-hash filename node) + node)) source-filenames)) (initialize/syntax-dependencies!) (initialize/integration-dependencies!) diff --git a/v7/src/compiler/machines/bobcat/decls.scm b/v7/src/compiler/machines/bobcat/decls.scm index ec3e6d71d..b670da277 100644 --- a/v7/src/compiler/machines/bobcat/decls.scm +++ b/v7/src/compiler/machines/bobcat/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: decls.scm,v 4.35 1993/10/12 07:29:32 cph Exp $ +$Id: decls.scm,v 4.36 1993/10/12 23:51:19 cph Exp $ Copyright (c) 1988-93 Massachusetts Institute of Technology @@ -72,10 +72,9 @@ MIT in each case. |# (set! source-hash (make-string-hash-table)) (set! source-nodes (map (lambda (filename) - (if (not (hash-table/get source-hash filename #f)) - (hash-table/put! source-hash - filename - (make/source-node filename)))) + (let ((node (make/source-node filename))) + (hash-table/put! source-hash filename node) + node)) source-filenames)) (initialize/syntax-dependencies!) (initialize/integration-dependencies!) diff --git a/v7/src/compiler/machines/i386/decls.scm b/v7/src/compiler/machines/i386/decls.scm index dce8108a4..1513224b3 100644 --- a/v7/src/compiler/machines/i386/decls.scm +++ b/v7/src/compiler/machines/i386/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: decls.scm,v 1.6 1993/10/12 07:29:43 cph Exp $ +$Id: decls.scm,v 1.7 1993/10/12 23:51:27 cph Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -72,10 +72,9 @@ MIT in each case. |# (set! source-hash (make-string-hash-table)) (set! source-nodes (map (lambda (filename) - (if (not (hash-table/get source-hash filename #f)) - (hash-table/put! source-hash - filename - (make/source-node filename)))) + (let ((node (make/source-node filename))) + (hash-table/put! source-hash filename node) + node)) source-filenames)) (initialize/syntax-dependencies!) (initialize/integration-dependencies!) diff --git a/v7/src/compiler/machines/mips/decls.scm b/v7/src/compiler/machines/mips/decls.scm index 60a0689d9..1003863f0 100644 --- a/v7/src/compiler/machines/mips/decls.scm +++ b/v7/src/compiler/machines/mips/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: decls.scm,v 1.8 1993/10/12 07:29:53 cph Exp $ +$Id: decls.scm,v 1.9 1993/10/12 23:51:38 cph Exp $ Copyright (c) 1988-93 Massachusetts Institute of Technology @@ -72,10 +72,9 @@ MIT in each case. |# (set! source-hash (make-string-hash-table)) (set! source-nodes (map (lambda (filename) - (if (not (hash-table/get source-hash filename #f)) - (hash-table/put! source-hash - filename - (make/source-node filename)))) + (let ((node (make/source-node filename))) + (hash-table/put! source-hash filename node) + node)) source-filenames)) (initialize/syntax-dependencies!) (initialize/integration-dependencies!) diff --git a/v7/src/compiler/machines/sparc/decls.scm b/v7/src/compiler/machines/sparc/decls.scm index 441b752b8..b950fb72f 100644 --- a/v7/src/compiler/machines/sparc/decls.scm +++ b/v7/src/compiler/machines/sparc/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: decls.scm,v 1.2 1993/10/12 07:30:02 cph Exp $ +$Id: decls.scm,v 1.3 1993/10/12 23:51:50 cph Exp $ Copyright (c) 1988-93 Massachusetts Institute of Technology @@ -69,10 +69,9 @@ MIT in each case. |# (set! source-hash (make-string-hash-table)) (set! source-nodes (map (lambda (filename) - (if (not (hash-table/get source-hash filename #f)) - (hash-table/put! source-hash - filename - (make/source-node filename)))) + (let ((node (make/source-node filename))) + (hash-table/put! source-hash filename node) + node)) source-filenames)) (initialize/syntax-dependencies!) (initialize/integration-dependencies!) diff --git a/v7/src/compiler/machines/spectrum/decls.scm b/v7/src/compiler/machines/spectrum/decls.scm index a82828a25..9b4d8bf8d 100644 --- a/v7/src/compiler/machines/spectrum/decls.scm +++ b/v7/src/compiler/machines/spectrum/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: decls.scm,v 4.33 1993/10/12 07:30:13 cph Exp $ +$Id: decls.scm,v 4.34 1993/10/12 23:51:58 cph Exp $ Copyright (c) 1988-93 Massachusetts Institute of Technology @@ -72,10 +72,9 @@ MIT in each case. |# (set! source-hash (make-string-hash-table)) (set! source-nodes (map (lambda (filename) - (if (not (hash-table/get source-hash filename #f)) - (hash-table/put! source-hash - filename - (make/source-node filename)))) + (let ((node (make/source-node filename))) + (hash-table/put! source-hash filename node) + node)) source-filenames)) (initialize/syntax-dependencies!) (initialize/integration-dependencies!) diff --git a/v7/src/compiler/machines/vax/decls.scm b/v7/src/compiler/machines/vax/decls.scm index 6997eb2cd..1b25761e8 100644 --- a/v7/src/compiler/machines/vax/decls.scm +++ b/v7/src/compiler/machines/vax/decls.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: decls.scm,v 4.11 1993/10/12 07:30:29 cph Exp $ +$Id: decls.scm,v 4.12 1993/10/12 23:52:08 cph Exp $ Copyright (c) 1987-93 Massachusetts Institute of Technology @@ -72,10 +72,9 @@ MIT in each case. |# (set! source-hash (make-string-hash-table)) (set! source-nodes (map (lambda (filename) - (if (not (hash-table/get source-hash filename #f)) - (hash-table/put! source-hash - filename - (make/source-node filename)))) + (let ((node (make/source-node filename))) + (hash-table/put! source-hash filename node) + node)) source-filenames)) (initialize/syntax-dependencies!) (initialize/integration-dependencies!)