From be5f5cc62f273daea556df5beb9e914dd5e432dd Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 18 Jan 2000 20:43:28 +0000 Subject: [PATCH] Generate correct constructor when there are no exports. --- v7/src/cref/conpkg.scm | 24 ++++++++++++++---------- 1 file changed, 14 insertions(+), 10 deletions(-) diff --git a/v7/src/cref/conpkg.scm b/v7/src/cref/conpkg.scm index 5c2701656..fdedf1b16 100644 --- a/v7/src/cref/conpkg.scm +++ b/v7/src/cref/conpkg.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: conpkg.scm,v 1.6 1999/01/02 06:11:34 cph Exp $ +$Id: conpkg.scm,v 1.7 2000/01/18 20:43:28 cph Exp $ -Copyright (c) 1988-1999 Massachusetts Institute of Technology +Copyright (c) 1988-2000 Massachusetts Institute of Technology This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -33,14 +33,18 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ;; #F, () or the system-global-environment changes. `((DECLARE (USUAL-INTEGRATIONS SYSTEM-GLOBAL-ENVIRONMENT)) ,@(append-map* - `((LET ((ENVIRONMENT-LINK-NAME - (LET-SYNTAX - ((UCODE-PRIMITIVE - (MACRO (NAME) (MAKE-PRIMITIVE-PROCEDURE NAME)))) - (UCODE-PRIMITIVE ENVIRONMENT-LINK-NAME)))) - ,@(append-map* - (append-map construct-links (pmodel/extra-packages pmodel)) - construct-links packages))) + (let ((links + (append-map* + (append-map construct-links (pmodel/extra-packages pmodel)) + construct-links packages))) + (if (pair? links) + `((LET ((ENVIRONMENT-LINK-NAME + (LET-SYNTAX + ((UCODE-PRIMITIVE + (MACRO (NAME) (MAKE-PRIMITIVE-PROCEDURE NAME)))) + (UCODE-PRIMITIVE ENVIRONMENT-LINK-NAME)))) + ,@links)) + '())) construct-definitions (sort packages package-structure