From 833a126325006222e1bc03d3619536d61ca29677 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 7 May 1991 02:02:05 +0000 Subject: [PATCH] Fix bug by which variable with no binding expressions in package with multiple files was causing cref to lose. --- v7/src/cref/forpkg.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/v7/src/cref/forpkg.scm b/v7/src/cref/forpkg.scm index 4581adf8f..f29180068 100644 --- a/v7/src/cref/forpkg.scm +++ b/v7/src/cref/forpkg.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/forpkg.scm,v 1.5 1991/03/01 20:19:39 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/forpkg.scm,v 1.6 1991/05/07 02:02:05 jinx Exp $ -Copyright (c) 1988, 1991 Massachusetts Institute of Technology +Copyright (c) 1988-1991 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -186,15 +186,16 @@ MIT in each case. |# port indentation width package bindings "Bindings" (lambda (binding) - (let ((name (binding/name-string binding))) - (if (< (package/n-files package) 2) + (let* ((name (binding/name-string binding)) + (expressions (binding/expressions binding))) + (if (or (< (package/n-files package) 2) + (null? expressions)) name (apply string-append name " " - (let loop - ((expressions (binding/expressions binding)) - (p "(")) + (let loop ((expressions expressions) + (p "(")) (cons p (cons (expression/file (car expressions)) (if (null? (cdr expressions)) -- 2.25.1