From a69c9fb665459e2bfdbda1bf80741a0af31a7faf Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:06:40 -0800 Subject: New upstream version 3b5 --- require.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'require.scm') diff --git a/require.scm b/require.scm index a659019..67b4369 100644 --- a/require.scm +++ b/require.scm @@ -17,7 +17,7 @@ ;promotional, or sales literature without prior written consent in ;each case. ;@ -(define *slib-version* "3b1") +(define *slib-version* "3b5") ;;;; MODULES ;@ @@ -228,10 +228,11 @@ (newline)) ;@ (define (slib:report . args) - (define rpt (lambda () (slib:report-version) (slib:report-locations))) - (cond ((null? args) (rpt)) + (define rpt (lambda () (slib:report-version) (slib:report-locations #t))) + (cond ((null? args) + (slib:report-version) (slib:report-locations)) ((not (string? (car args))) - (slib:report-version) (slib:report-locations #t)) + (rpt)) ((slib:provided? 'transcript) (transcript-on (car args)) (rpt) -- cgit v1.2.3