mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

load files from the command line relative to the cwd

Browse source 
* module/ice-9/command-line.scm (load/lang): Load files from the command
  line relative to the current working directory (fixes regression).
This commit is contained in:
Andy Wingo 2013-01-23 16:05:13 +01:00
parent faabd16157
commit 8026a774a9
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/command-line.scm
View file

@ -184,7 +184,7 @@ If FILE begins with `-' the -s switch is mandatory.
(define (load/lang f)
(case (current-language)
((scheme)
(load f))
(load-in-vicinity (getcwd) f))
(else
((module-ref (resolve-module '(system base compile)) 'compile-file)
f #:to 'value))))