Fix order problem: intern was used before it was defined.

diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm
index 8d107f75c4e500b547c3a55fec8d277fc1aed4c7..77d31e6aa5952591523f21eaa871a52bc5bd2213 100644 (file)
--- a/v7/src/runtime/make.scm
+++ b/v7/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.10 1989/04/18 16:29:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/make.scm,v 14.11 1989/05/04 16:38:08 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -168,21 +168,6 @@ MIT in each case. |#
   (tty-write-string " purified")
   (tty-flush-output)
   object)
-
-(define (implemented-primitive-procedure? primitive)
-  (get-primitive-address (intern (get-primitive-name (object-datum primitive)))
-                        false))
-
-(define map-filename
-  (if (and (implemented-primitive-procedure? file-exists?)
-          (not (prompt-for-confirmation "Load interpreted? ")))
-      (lambda (filename)
-       (let ((com-file (string-append filename ".com")))
-         (if (file-exists? com-file)
-             com-file
-             (string-append filename ".bin"))))
-      (lambda (filename)
-       (string-append filename ".bin"))))
 \f
 (define (string-append x y)
   (let ((x-length (string-length x))
@@ -206,6 +191,20 @@ MIT in each case. |#
 (define (intern string)
   (string->symbol (string-downcase string)))
 
+(define (implemented-primitive-procedure? primitive)
+  (get-primitive-address (intern (get-primitive-name (object-datum primitive)))
+                        false))
+
+(define map-filename
+  (if (and (implemented-primitive-procedure? file-exists?)
+          (not (prompt-for-confirmation "Load interpreted? ")))      (lambda (filename)
+       (let ((com-file (string-append filename ".com")))
+         (if (file-exists? com-file)
+             com-file
+             (string-append filename ".bin"))))
+      (lambda (filename)
+       (string-append filename ".bin"))))
+\f
 (define (package-initialize package-name procedure-name)
   (tty-write-char newline-char)
   (tty-write-string "initialize: (")

diff --git a/v8/src/runtime/make.scm b/v8/src/runtime/make.scm
index bc87dbc24fe36c3b944d46bc00a85a766af6b342..2dc53398b3dc9e41107440a64da33c6fe809fdc7 100644 (file)
--- a/v8/src/runtime/make.scm
+++ b/v8/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.10 1989/04/18 16:29:39 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/make.scm,v 14.11 1989/05/04 16:38:08 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -168,21 +168,6 @@ MIT in each case. |#
   (tty-write-string " purified")
   (tty-flush-output)
   object)
-
-(define (implemented-primitive-procedure? primitive)
-  (get-primitive-address (intern (get-primitive-name (object-datum primitive)))
-                        false))
-
-(define map-filename
-  (if (and (implemented-primitive-procedure? file-exists?)
-          (not (prompt-for-confirmation "Load interpreted? ")))
-      (lambda (filename)
-       (let ((com-file (string-append filename ".com")))
-         (if (file-exists? com-file)
-             com-file
-             (string-append filename ".bin"))))
-      (lambda (filename)
-       (string-append filename ".bin"))))
 \f
 (define (string-append x y)
   (let ((x-length (string-length x))
@@ -206,6 +191,20 @@ MIT in each case. |#
 (define (intern string)
   (string->symbol (string-downcase string)))
 
+(define (implemented-primitive-procedure? primitive)
+  (get-primitive-address (intern (get-primitive-name (object-datum primitive)))
+                        false))
+
+(define map-filename
+  (if (and (implemented-primitive-procedure? file-exists?)
+          (not (prompt-for-confirmation "Load interpreted? ")))      (lambda (filename)
+       (let ((com-file (string-append filename ".com")))
+         (if (file-exists? com-file)
+             com-file
+             (string-append filename ".bin"))))
+      (lambda (filename)
+       (string-append filename ".bin"))))
+\f
 (define (package-initialize package-name procedure-name)
   (tty-write-char newline-char)
   (tty-write-string "initialize: (")