mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

Merge remote-tracking branch 'origin/stable-2.0'

Browse source
This commit is contained in:
Andy Wingo 2013-01-23 16:13:10 +01:00
commit 0683c24d32
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) (define (load/lang f)
(case (current-language) (case (current-language)
((scheme) ((scheme)
(load f)) (load-in-vicinity (getcwd) f))
(else (else
((module-ref (resolve-module '(system base compile)) 'compile-file) ((module-ref (resolve-module '(system base compile)) 'compile-file)
f #:to 'value)))) f #:to 'value))))