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

* boot-9.scm (try-module-autoload): Make sure that module code is

Browse source 
loaded with the default reader (current-reader #f).  Thanks to
Ludovic Courtès for pointing this problem out.
This commit is contained in:
Neil Jerram 2006-02-04 15:57:16 +00:00
parent 26beee1e74
commit 2328328f85
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -1,5 +1,9 @@
2006-02-04 Neil Jerram <neil@ossau.uklinux.net> 2006-02-04 Neil Jerram <neil@ossau.uklinux.net>
* boot-9.scm (try-module-autoload): Make sure that module code is
loaded with the default reader (current-reader #f). Thanks to
Ludovic Courtès for pointing this problem out.
* stack-catch.scm (stack-catch): Use catch pre-unwind handler * stack-catch.scm (stack-catch): Use catch pre-unwind handler
instead of lazy-catch. instead of lazy-catch.

3
ice-9/boot-9.scm
View file

@ -2180,7 +2180,8 @@
(load-file load-compiled full))) (load-file load-compiled full)))
((%search-load-path file) ((%search-load-path file)
=> (lambda (full) => (lambda (full)
(load-file primitive-load full)))))) (with-fluids ((current-reader #f))
(load-file primitive-load full)))))))
(lambda () (set-autoloaded! dir-hint name didit))) (lambda () (set-autoloaded! dir-hint name didit)))
didit)))) didit))))