`cref/generate-constructors' should write the ".glob" file also.

diff --git a/v7/src/cref/toplev.scm b/v7/src/cref/toplev.scm
index 8f76f5684c834f5284089185f7c65a34d3a97960..8645ebcfcf094e774a0c0d1ef42bfd62082d0851 100644 (file)
--- a/v7/src/cref/toplev.scm
+++ b/v7/src/cref/toplev.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/toplev.scm,v 1.2 1988/08/05 21:14:19 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/toplev.scm,v 1.3 1989/08/03 23:27:08 cph Rel $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -55,7 +55,9 @@ MIT in each case. |#
 
 (define cref/generate-constructors
   (generate/common
-   (lambda (pathname pmodel)     (write-constructor pathname pmodel)
+   (lambda (pathname pmodel)
+     (write-globals pathname pmodel)
+     (write-constructor pathname pmodel)
      (write-loader pathname pmodel))))
 
 (define cref/generate-all