From 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:38 -0800 Subject: Import Upstream version 3a5 --- schmooz.scm | 16 ++++++++++++++-- 1 file changed, 14 insertions(+), 2 deletions(-) (limited to 'schmooz.scm') diff --git a/schmooz.scm b/schmooz.scm index 75ddfa7..39785f3 100644 --- a/schmooz.scm +++ b/schmooz.scm @@ -359,6 +359,15 @@ ((not (and (char? chr) (not (char-whitespace? chr)))) str) (read-char port))) +(define (pathname->local-filename path) + (define vic (pathname->vicinity path)) + (define plen (string-length path)) + (let ((vlen (string-length vic))) + (if (and (substring? vic path) + (< vlen plen)) + (in-vicinity (user-vicinity) (substring path vlen plen)) + (slib:error 'pathname->local-filename path)))) + ;;;@ SCHMOOZ files. (define schmooz (let* ((scheme-file? (filename:match-ci?? "*??scm")) @@ -400,9 +409,12 @@ (define sl (string-length file)) (cond ((texi-file? file) (schmooz-texi-file file)) ((scheme-file? file) - (schmooz-scm-file file (scm->txi file))) + (schmooz-scm-file + file (pathname->local-filename (scm->txi file)))) (else (schmooz-scm-file - file (string-append file ".txi"))))) + file + (pathname->local-filename + (string-append file ".txi")))))) files)))) ;;; SCHMOOZ-TOPS - schmooz top level forms. -- cgit v1.2.3