* `include' relative to current file
@ 2013-01-20 19:28 Andy Wingo
2013-01-20 19:57 ` Jay Sulzberger
2013-01-22 10:16 ` Ludovic Courtès
0 siblings, 2 replies; 7+ messages in thread
From: Andy Wingo @ 2013-01-20 19:28 UTC (permalink / raw
To: guile-devel
[-- Attachment #1: Type: text/plain, Size: 195 bytes --]
Thoughts on this patch? It fixes SLIB in CVS, which now does an
(include "guile-2.init") in the Guile 2.x case.
To test, check out Slib from CVS, then (load
"/path/to/slib/guile.init").
Andy
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-include-relative-paths-relative-to-including-file.patch --]
[-- Type: text/x-diff, Size: 2200 bytes --]
From 856d0ef6e7a5236da36c2fae13271e643580507d Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 20 Jan 2013 20:26:59 +0100
Subject: [PATCH] `include' relative paths relative to including file
* module/ice-9/psyntax.scm (include): Like `load', interpret relative
paths as being relative to the file that does the `include'.
---
module/ice-9/psyntax.scm | 25 +++++++++++++++++--------
1 file changed, 17 insertions(+), 8 deletions(-)
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 6c264a6..d41a0eb 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -1,7 +1,7 @@
;;;; -*-scheme-*-
;;;;
;;;; Copyright (C) 2001, 2003, 2006, 2009, 2010, 2011,
-;;;; 2012 Free Software Foundation, Inc.
+;;;; 2012, 2013 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -2935,9 +2935,15 @@
(define-syntax include
(lambda (x)
+ (define (absolute-path? path)
+ (string-prefix? "/" path))
+
(define read-file
- (lambda (fn k)
- (let ((p (open-input-file fn)))
+ (lambda (fn dir k)
+ (let ((p (open-input-file
+ (if (absolute-path? fn)
+ fn
+ (in-vicinity dir fn)))))
(let f ((x (read p))
(result '()))
(if (eof-object? x)
@@ -2946,11 +2952,14 @@
(reverse result))
(f (read p)
(cons (datum->syntax k x) result)))))))
- (syntax-case x ()
- ((k filename)
- (let ((fn (syntax->datum #'filename)))
- (with-syntax (((exp ...) (read-file fn #'filename)))
- #'(begin exp ...)))))))
+ (let* ((src (syntax-source x))
+ (file (and src (assq-ref src 'filename)))
+ (dir (and (string? file) (dirname file))))
+ (syntax-case x ()
+ ((k filename)
+ (let ((fn (syntax->datum #'filename)))
+ (with-syntax (((exp ...) (read-file fn dir #'filename)))
+ #'(begin exp ...))))))))
(define-syntax include-from-path
(lambda (x)
--
1.7.10.4
[-- Attachment #3: Type: text/plain, Size: 26 bytes --]
--
http://wingolog.org/
^ permalink raw reply related [flat|nested] 7+ messages in thread
* Re: `include' relative to current file
2013-01-20 19:28 `include' relative to current file Andy Wingo
@ 2013-01-20 19:57 ` Jay Sulzberger
2013-01-21 6:08 ` Jay Sulzberger
2013-01-22 10:16 ` Ludovic Courtès
1 sibling, 1 reply; 7+ messages in thread
From: Jay Sulzberger @ 2013-01-20 19:57 UTC (permalink / raw
To: guile-devel
On Sun, 20 Jan 2013, Andy Wingo <wingo@pobox.com> wrote:
> Thoughts on this patch? It fixes SLIB in CVS, which now does an
> (include "guile-2.init") in the Guile 2.x case.
>
> To test, check out Slib from CVS, then (load
> "/path/to/slib/guile.init").
>
> Andy
Thank you for getting SLIB to work with Guile 2.x!
oo--JS.
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: `include' relative to current file
2013-01-20 19:57 ` Jay Sulzberger
@ 2013-01-21 6:08 ` Jay Sulzberger
2013-01-21 9:01 ` Andy Wingo
0 siblings, 1 reply; 7+ messages in thread
From: Jay Sulzberger @ 2013-01-21 6:08 UTC (permalink / raw
To: guile-devel
On Sun, 20 Jan 2013, Jay Sulzberger wrote:
>
>
> On Sun, 20 Jan 2013, Andy Wingo <wingo@pobox.com> wrote:
>
>> Thoughts on this patch? It fixes SLIB in CVS, which now does an
>> (include "guile-2.init") in the Guile 2.x case.
>>
>> To test, check out Slib from CVS, then (load
>> "/path/to/slib/guile.init").
>>
>> Andy
>
> Thank you for getting SLIB to work with Guile 2.x!
>
> oo--JS.
I run Debian testing. My main box returns this, given uname -a:
Linux jaysbox 2.6.39-2-686-pae #1 SMP Tue Jul 5 03:48:49 UTC 2011 i686 GNU/Linux
and we have:
jays@jaysbox:~/Downloads$ guile-2.0 --version
guile (GNU Guile) 2.0.5-deb+1-3
Copyright (C) 2011 Free Software Foundation, Inc.
License LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>.
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
I applied the recent patch to
/usr/share/guile/2.0/ice-9/psyntax.scm
and also placed the most recent official guile-2.init in my
standard slib directory like so
/usr/share/slib/guile-2.init
and made a symlink from /usr/share/slib/guile.init pointing to above file.
My slib is version 3b3.
I still was not able to just start up guile-2.0 and do
(use-modules (ice-9 slib))
and have slib working. The problem seemed to be that the guile
module system could not find guile.init. Even adding
/usr/share/slib to the %load-path seemed not to help. I could
load various parts of the slib system, and get some stuff
working, but not everything.
I now have what I think is a working slib system for guile-2.0.
I modified one line in
/usr/share/guile/2.0/ice-9/slib.scm
The original file had this line:
(load-from-path "slib/guile.init")
I changed the line to:
(load "/usr/share/slib/guile.init")
Now slib and guile-2.0 seem to work together. I have not run any
test suite.
Likely this hard coding of the path to slib's guile.init is not
the right way to repair the guile-slib system.
Below is the record of a guile-2 session in which slib is loaded,
and a couple of slib things are run.
oo--JS.
GNU Guile 2.0.5-deb+1-3
Copyright (C) 1995-2012 Free Software Foundation, Inc.
Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
This program is free software, and you are welcome to redistribute it
under certain conditions; type `,show c' for details.
Enter `,help' for help.
scheme@(guile-user)> (use-modules (ice-9 slib))
;;; note: source file /usr/share/guile/2.0/ice-9/slib.scm
;;; newer than compiled /usr/lib/guile/2.0/ccache/ice-9/slib.go
;;; note: source file /usr/share/guile/2.0/ice-9/slib.scm
;;; newer than compiled /home/jays/.cache/guile/ccache/2.0-LE-4-2.0/usr/share/guile/2.0/ice-9/slib.scm.go
;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=0
;;; or pass the --no-auto-compile argument to disable.
;;; compiling /usr/share/guile/2.0/ice-9/slib.scm
;;; compiled /home/jays/.cache/guile/ccache/2.0-LE-4-2.0/usr/share/guile/2.0/ice-9/slib.scm.go
scheme@(guile-user)> (slib:report #t)
SLIB "3b3" on guile "2.0.5-deb+1-3" on unix
(IMPLEMENTATION-VICINITY) is "/usr/share/guile/site/2.0"
(LIBRARY-VICINITY) is "/usr/share/slib/"
(SCHEME-FILE-SUFFIX) is ".scm"
guile #{2.0.5-deb+1-3}# SLIB:FEATURES :
srfi-61 srfi-55 srfi-39 srfi-23
srfi-14 srfi-13 srfi-6 srfi-4
bignum complex real rational
inexact source compiled vicinity
srfi-59 srfi-96 r5rs eval
values dynamic-wind macro delay
multiarg-apply char-ready? rev4-optional-procedures multiarg/and-
rationalize with-file rev2-procedures hash
full-continuation ieee-floating-point srfi-0 defmacro
string-port line-i/o system getenv
program-arguments current-time logical random
array array-for-each
guile #{2.0.5-deb+1-3}# *CATALOG* :
(prelude . "/home/jays/TEST/SIMULATOR/006/simroot/etc/prelude.0.006")
(pregexp . "/home/jays/OPT/PREGEXP/pregexp/pregexp")
(jrproj-options . "/home/jays/.jlogstat.d/jrproj-options")
(rcp . "/home/jays/TEST/SIMULATOR/006/simroot/lib/sgen/rcp.006")
(spl . "/home/jays/TEST/SIMULATOR/006/simroot/lib/spl/spl.006")
(spl-r-run . "/home/jays/TEST/SIMULATOR/006/simroot/lib/spl/r-run.006")
(simconf . "/home/jays/TEST/SIMULATOR/006/simroot/etc/simulation.conf")
(adjuster . "/home/jays/TEST/SIMULATOR/006/simroot/lib/sgen/adjuster.006")
(create-instances . "/home/jays/TEST/SIMULATOR/006/simroot/lib/sgen/create-instances.006")
(get-specs . "/home/jays/TEST/SIMULATOR/006/simroot/lib/sgen/get-specs")
(ticks . "/home/jays/TEST/SIMULATOR/006/simroot/lib/sgen/ticks")
(jays-lists-as-sets . "/home/jays/LISP/SCM/JAYSLIB/jays-lists-as-sets")
(jays-probability . "/home/jays/WORK/DATA/PRODUCTION-CODE/VERSION-0.2/probability.engine.cut.0")
(jays-lines-and-files . "/home/jays/WORK/DATA/PRODUCTION-CODE/VERSION-0.2/lines-and-files")
(jays-read-write-summaries . "/home/jays/WORK/DATA/PRODUCTION-CODE/VERSION-0.2/read-write-summaries-version-0.3")
(jays-database . "/home/jays/WORK/DATA/PRODUCTION-CODE/VERSION-0.2/jays-database-version-0.2")
(jays-ob-utilities . "/home/jays/WORK/DATA/PRODUCTION-CODE/VERSION-0.2/ob-utilities-version-0.1")
(schelog . "/usr/share/slib/schelog/schelog")
(portable-scheme-debugger . "/usr/share/slib/psd/psd-slib")
(jfilter . "/usr/share/slib/jfilter/jfilter")
(null source "/usr/share/slib/null")
(aggregate source "/usr/share/slib/null")
(r2rs aggregate rev3-procedures rev2-procedures)
(r3rs aggregate rev3-procedures)
(r4rs aggregate rev4-optional-procedures)
(r5rs aggregate values macro eval)
(rev4-optional-procedures source "/usr/share/slib/sc4opt")
(rev3-procedures source "/usr/share/slib/null")
(rev2-procedures source "/usr/share/slib/sc2")
(multiarg/and- source "/usr/share/slib/mularg")
(multiarg-apply source "/usr/share/slib/mulapply")
(rationalize source "/usr/share/slib/ratize")
(transcript source "/usr/share/slib/trnscrpt")
(with-file source "/usr/share/slib/withfile")
(dynamic-wind source "/usr/share/slib/dynwind")
(dynamic source "/usr/share/slib/dynamic")
(fluid-let defmacro "/usr/share/slib/fluidlet")
(alist source "/usr/share/slib/alist")
(hash source "/usr/share/slib/hash")
(sierpinski source "/usr/share/slib/sierpinski")
(hilbert-fill source "/usr/share/slib/phil-spc")
(peano-fill source "/usr/share/slib/peanosfc")
(soundex source "/usr/share/slib/soundex")
(hash-table source "/usr/share/slib/hashtab")
(logical source "/usr/share/slib/logical")
(random source "/usr/share/slib/random")
(random-inexact source "/usr/share/slib/randinex")
(modular source "/usr/share/slib/modular")
(factor source "/usr/share/slib/factor")
(primes . factor)
(limit source "/usr/share/slib/limit")
(eps-graph source "/usr/share/slib/grapheps")
(charplot source "/usr/share/slib/charplot")
(sort source "/usr/share/slib/sort")
(srfi-95 . sort)
(tsort . topological-sort)
(topological-sort source "/usr/share/slib/tsort")
(common-list-functions source "/usr/share/slib/comlist")
(tree source "/usr/share/slib/tree")
(coerce source "/usr/share/slib/coerce")
(format source "/usr/share/slib/format")
(generic-write source "/usr/share/slib/genwrite")
(pretty-print source "/usr/share/slib/pp")
(pprint-file source "/usr/share/slib/ppfile")
(object->string source "/usr/share/slib/obj2str")
(string-case source "/usr/share/slib/strcase")
(line-i/o source "/usr/share/slib/lineio")
(string-port source "/usr/share/slib/strport")
(getopt source "/usr/share/slib/getopt")
(qp source "/usr/share/slib/qp")
(eval source "/usr/share/slib/eval")
(record source "/usr/share/slib/record")
(synchk source "/usr/share/slib/synchk")
(defmacroexpand source "/usr/share/slib/defmacex")
(printf source "/usr/share/slib/printf")
(scanf defmacro "/usr/share/slib/scanf")
(stdio-ports source "/usr/share/slib/stdio")
(stdio aggregate scanf printf stdio-ports)
(break defmacro "/usr/share/slib/break")
(trace defmacro "/usr/share/slib/trace")
(debugf source "/usr/share/slib/debug")
(debug aggregate trace break debugf)
(delay . promise)
(promise macro "/usr/share/slib/promise")
(macro-by-example defmacro "/usr/share/slib/mbe")
(syntax-case source "/usr/share/slib/scainit")
(syntactic-closures source "/usr/share/slib/scmacro")
(macros-that-work source "/usr/share/slib/macwork")
(macro . macro-by-example)
(object source "/usr/share/slib/object")
(yasos macro "/usr/share/slib/yasyn")
(oop . yasos)
(collect source "/usr/share/slib/collectx")
(structure syntax-case "/usr/share/slib/structure")
(values source "/usr/share/slib/values")
(queue source "/usr/share/slib/queue")
(priority-queue source "/usr/share/slib/priorque")
(array source "/usr/share/slib/array")
(subarray source "/usr/share/slib/subarray")
(array-for-each source "/usr/share/slib/arraymap")
(array-interpolate source "/usr/share/slib/linterp")
(repl source "/usr/share/slib/repl")
(process source "/usr/share/slib/process")
(chapter-order source "/usr/share/slib/chap")
(posix-time source "/usr/share/slib/psxtime")
(common-lisp-time source "/usr/share/slib/cltime")
(time-core source "/usr/share/slib/timecore")
(time-zone defmacro "/usr/share/slib/timezone")
(relational-database source "/usr/share/slib/rdms")
(databases source "/usr/share/slib/dbutil")
(database-utilities . databases)
(database-commands source "/usr/share/slib/dbcom")
(database-browse source "/usr/share/slib/dbrowse")
(database-interpolate source "/usr/share/slib/dbinterp")
(within-database macro "/usr/share/slib/dbsyn")
(html-form source "/usr/share/slib/htmlform")
(alist-table source "/usr/share/slib/alistab")
(parameters source "/usr/share/slib/paramlst")
(getopt-parameters source "/usr/share/slib/getparam")
(read-command source "/usr/share/slib/comparse")
(batch source "/usr/share/slib/batch")
(glob source "/usr/share/slib/glob")
(filename . glob)
(crc source "/usr/share/slib/crc")
(dft source "/usr/share/slib/dft")
(fft . dft)
(Fourier-transform . dft)
(wt-tree source "/usr/share/slib/wttree")
(string-search source "/usr/share/slib/strsrch")
(root source "/usr/share/slib/root")
(minimize source "/usr/share/slib/minimize")
(precedence-parse defmacro "/usr/share/slib/prec")
(parse . precedence-parse)
(commutative-ring source "/usr/share/slib/cring")
(self-set source "/usr/share/slib/selfset")
(determinant source "/usr/share/slib/determ")
(byte source "/usr/share/slib/byte")
(byte-number source "/usr/share/slib/bytenumb")
(tzfile source "/usr/share/slib/tzfile")
(schmooz source "/usr/share/slib/schmooz")
(transact defmacro "/usr/share/slib/transact")
(net-clients . transact)
(db->html source "/usr/share/slib/db2html")
(http defmacro "/usr/share/slib/http-cgi")
(cgi . http)
(uri defmacro "/usr/share/slib/uri")
(uniform-resource-identifier . uri)
(pnm source "/usr/share/slib/pnm")
(metric-units source "/usr/share/slib/simetrix")
(diff source "/usr/share/slib/differ")
(solid source "/usr/share/slib/solid")
(vrml97 . solid)
(vrml . vrml97)
(color defmacro "/usr/share/slib/color")
(color-space source "/usr/share/slib/colorspc")
(cie . color-space)
(color-names source "/usr/share/slib/colornam")
(color-database defmacro "/usr/share/slib/mkclrnam")
(resene color-names "/usr/share/slib/clrnamdb.scm")
(saturate color-names "/usr/share/slib/clrnamdb.scm")
(nbs-iscc color-names "/usr/share/slib/clrnamdb.scm")
(daylight source "/usr/share/slib/daylight")
(matfile source "/usr/share/slib/matfile")
(mat-file . matfile)
(spectral-tristimulus-values . color-space)
(cie1964 spectral-tristimulus-values "/usr/share/slib/cie1964.xyz")
(cie1931 spectral-tristimulus-values "/usr/share/slib/cie1931.xyz")
(ciexyz . cie1931)
(cvs defmacro "/usr/share/slib/cvs")
(html-for-each defmacro "/usr/share/slib/html4each")
(directory source "/usr/share/slib/dirs")
(ncbi-dna defmacro "/usr/share/slib/ncbi-dna")
(manifest source "/usr/share/slib/manifest")
(top-refs source "/usr/share/slib/top-refs")
(vet source "/usr/share/slib/vet")
(srfi . srfi-0)
(srfi-0 defmacro "/usr/share/slib/srfi")
(srfi-1 source "/usr/share/slib/srfi-1")
(and-let* . srfi-2)
(srfi-2 defmacro "/usr/share/slib/srfi-2")
(receive . srfi-8)
(srfi-8 macro "/usr/share/slib/srfi-8")
(define-record-type . srfi-9)
(srfi-9 macro "/usr/share/slib/srfi-9")
(let-values . srfi-11)
(srfi-11 macro "/usr/share/slib/srfi-11")
(srfi-28 . format)
(srfi-47 . array)
(srfi-63 . array)
(srfi-60 . logical)
(guarded-cond-clause . srfi-61)
(srfi-61 macro "/usr/share/slib/srfi-61")
(srfi-23 source "/usr/share/slib/srfi-23")
(math-integer source "/usr/share/slib/math-integer")
(math-real source "/usr/share/slib/math-real")
(srfi-94 aggregate math-integer math-real)
(ssax . xml-parse)
(xml-parse source "/usr/share/slib/xml-parse")
(new-catalog source "/usr/share/slib/mklibcat")
(*slib-version* . "3b3")
scheme@(guile-user)> (require 'determinant)
scheme@(guile-user)> (determinant '((0 17) (1 0)))
$1 = -17
scheme@(guile-user)> (quit)
Process scheme finished
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: `include' relative to current file
2013-01-21 6:08 ` Jay Sulzberger
@ 2013-01-21 9:01 ` Andy Wingo
2013-01-22 5:54 ` Jay Sulzberger
0 siblings, 1 reply; 7+ messages in thread
From: Andy Wingo @ 2013-01-21 9:01 UTC (permalink / raw
To: Jay Sulzberger; +Cc: guile-devel
Hi Jay,
On Mon 21 Jan 2013 07:08, Jay Sulzberger <jays@panix.com> writes:
> /usr/share/slib/guile-2.init
>
> and made a symlink from /usr/share/slib/guile.init pointing to above file.
FWIW if you use slib from CVS, the included "guile.init" will include
the "guile-2.init" transparently if you are on Guile 2.0, and fall back
to the older code otherwise.
> I still was not able to just start up guile-2.0 and do
>
> (use-modules (ice-9 slib))
>
> and have slib working.
Seems to work for me. Ah, one thing: you need to update your ice-9/slib.scm
as well. See commit b194b59fa10574868f7b1663a1f2d447baa18c5e.
> Likely this hard coding of the path to slib's guile.init is not
> the right way to repair the guile-slib system.
Not sure. You could install slib to the load path. On Debian systems,
the hacks from b194b59fa10574868f7b1663a1f2d447baa18c5e will work. On
other systems, I guess we'll get bug reports :)
Cheers,
Andy
--
http://wingolog.org/
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: `include' relative to current file
2013-01-21 9:01 ` Andy Wingo
@ 2013-01-22 5:54 ` Jay Sulzberger
0 siblings, 0 replies; 7+ messages in thread
From: Jay Sulzberger @ 2013-01-22 5:54 UTC (permalink / raw
To: guile-devel
On Mon, 21 Jan 2013, Andy Wingo <wingo@pobox.com> wrote:
> Hi Jay,
Hi, Andy!
>
> On Mon 21 Jan 2013 07:08, Jay Sulzberger <jays@panix.com> writes:
>
>> /usr/share/slib/guile-2.init
>>
>> and made a symlink from /usr/share/slib/guile.init pointing to above file.
>
> FWIW if you use slib from CVS, the included "guile.init" will include
> the "guile-2.init" transparently if you are on Guile 2.0, and fall back
> to the older code otherwise.
I have pulled the latest slib and I see the conditional include
of guile-2.init inside guile.init.
>
>> I still was not able to just start up guile-2.0 and do
>>
>> (use-modules (ice-9 slib))
>>
>> and have slib working.
>
> Seems to work for me. Ah, one thing: you need to update your ice-9/slib.scm
> as well. See commit b194b59fa10574868f7b1663a1f2d447baa18c5e.
>
>> Likely this hard coding of the path to slib's guile.init is not
>> the right way to repair the guile-slib system.
>
> Not sure. You could install slib to the load path. On Debian systems,
> the hacks from b194b59fa10574868f7b1663a1f2d447baa18c5e will work. On
> other systems, I guess we'll get bug reports :)
>
> Cheers,
>
> Andy
I have pulled the latest guile and though I have not yet checked
that commit, I have seen the latest code in slib.scm and it is
better than my hard-code-the-path fix.
I will look and see if I can figure out how %load-path and
load-from-path and allied stuff works.
Thank you, Guile team!
oo--JS.
> --
> http://wingolog.org/
>
>
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: `include' relative to current file
2013-01-20 19:28 `include' relative to current file Andy Wingo
2013-01-20 19:57 ` Jay Sulzberger
@ 2013-01-22 10:16 ` Ludovic Courtès
2013-01-22 11:09 ` Andy Wingo
1 sibling, 1 reply; 7+ messages in thread
From: Ludovic Courtès @ 2013-01-22 10:16 UTC (permalink / raw
To: guile-devel
Andy Wingo <wingo@pobox.com> skribis:
> From 856d0ef6e7a5236da36c2fae13271e643580507d Mon Sep 17 00:00:00 2001
> From: Andy Wingo <wingo@pobox.com>
> Date: Sun, 20 Jan 2013 20:26:59 +0100
> Subject: [PATCH] `include' relative paths relative to including file
>
> * module/ice-9/psyntax.scm (include): Like `load', interpret relative
> paths as being relative to the file that does the `include'.
Good! Perhaps the lookup rule should be mentioned in the doc?
Ludo’.
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: `include' relative to current file
2013-01-22 10:16 ` Ludovic Courtès
@ 2013-01-22 11:09 ` Andy Wingo
0 siblings, 0 replies; 7+ messages in thread
From: Andy Wingo @ 2013-01-22 11:09 UTC (permalink / raw
To: Ludovic Courtès; +Cc: guile-devel
On Tue 22 Jan 2013 11:16, ludo@gnu.org (Ludovic Courtès) writes:
> Andy Wingo <wingo@pobox.com> skribis:
>
>> From 856d0ef6e7a5236da36c2fae13271e643580507d Mon Sep 17 00:00:00 2001
>> From: Andy Wingo <wingo@pobox.com>
>> Date: Sun, 20 Jan 2013 20:26:59 +0100
>> Subject: [PATCH] `include' relative paths relative to including file
>>
>> * module/ice-9/psyntax.scm (include): Like `load', interpret relative
>> paths as being relative to the file that does the `include'.
>
> Good! Perhaps the lookup rule should be mentioned in the doc?
Done, thanks for the review.
Andy
--
http://wingolog.org/
^ permalink raw reply [flat|nested] 7+ messages in thread
end of thread, other threads:[~2013-01-22 11:09 UTC | newest]
Thread overview: 7+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-01-20 19:28 `include' relative to current file Andy Wingo
2013-01-20 19:57 ` Jay Sulzberger
2013-01-21 6:08 ` Jay Sulzberger
2013-01-21 9:01 ` Andy Wingo
2013-01-22 5:54 ` Jay Sulzberger
2013-01-22 10:16 ` Ludovic Courtès
2013-01-22 11:09 ` Andy Wingo
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).