add env script

[bpt/guile.git] / module / slib / guile.init

diff --git a/module/slib/guile.init b/module/slib/guile.init
index 2d53c5d..1679883 100644 (file)
--- a/module/slib/guile.init
+++ b/module/slib/guile.init
@@ -223,10 +223,10 @@
 ;;; by compiling "foo.scm" if this implementation can compile files.
 ;;; See feature 'COMPILED.
 
-(define slib:load-compiled load-compiled)
+(define (slib:load-compiled f) (load-compiled-file (string-append f ".go")))
 
 ;;; At this point SLIB:LOAD must be able to load SLIB files.
 
-(define slib:load slib:load-compiled)
+(define slib:load slib:load)
 
 (slib:load (in-vicinity (library-vicinity) "require"))