From 6d59a5faea1cb6a3ff7e1e8d9520d9cf56af3ce7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 19 Dec 2001 01:54:09 +0000 Subject: [PATCH] Change order of names in renaming export declaration; now first name is always the destination and second is always the source. --- v7/src/cref/redpkg.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/cref/redpkg.scm b/v7/src/cref/redpkg.scm index 3b8d3224d..7c9f967ac 100644 --- a/v7/src/cref/redpkg.scm +++ b/v7/src/cref/redpkg.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: redpkg.scm,v 1.24 2001/12/18 19:09:58 cph Exp $ +$Id: redpkg.scm,v 1.25 2001/12/19 01:54:09 cph Exp $ Copyright (c) 1988-2001 Massachusetts Institute of Technology @@ -560,8 +560,8 @@ USA. (for-each (lambda (export) (let ((destination (get-package (car export) #t))) (for-each (lambda (names) - (link! package (car names) - destination (cdr names) + (link! package (cdr names) + destination (car names) package #t)) (cdr export)))) (package-description/exports description)) -- 2.25.1