From 8f87f67bad0145b4a07407c327a804c392ea4705 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 3 Aug 1989 23:27:08 +0000 Subject: [PATCH] `cref/generate-constructors' should write the ".glob" file also. --- v7/src/cref/toplev.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/v7/src/cref/toplev.scm b/v7/src/cref/toplev.scm index 8f76f5684..8645ebcfc 100644 --- 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 -- 2.25.1