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 63d89db03c18eb31c6442162f5bf129d489a457b..3a0f021f7ef0c1243fcb652878bbe9f51a1bb8ba 100644 (file)
--- 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 d8d03a4b0591256714b88ffcb3ccaa8cfb097500..0a18054cb9872a66b2cfba4b276c0055a7d86464 100644 (file)
--- 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 ec3e6d71df796a47448aa15731e38e769e487062..b670da277e555ef78c669a78ab94ca6618f3f61f 100644 (file)
--- 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 dce8108a4be9935c8c0c31f53bc6192ef192af43..1513224b3619336afb8e9f0a5cc153e76bec70fd 100644 (file)
--- 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 60a0689d93d4c8f3e8f95bb1cea33576aaab6512..1003863f0744656644dbe23329d28e8203734080 100644 (file)
--- 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 441b752b8c36477c0a7ebc44873685c1dab809e1..b950fb72fd68f59bd9c003e313b120b99c59bd32 100644 (file)
--- 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 a82828a25e38a252a92094de3511ba58da36eb78..9b4d8bf8db45d9ccec7c24ce6b19879ead74b0cd 100644 (file)
--- 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 6997eb2cd2d9dfeabccf173076e4f0024b8fc5d5..1b25761e8156ff50171a96971769ece6a0492afa 100644 (file)
--- 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!)