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

guile-user has no filename

Browse source 
* module/ice-9/boot-9.scm (guile-user): Set #:filename to #f for
  guile-user module, as guile-user isn't really associated with any
  file.
This commit is contained in:
Andy Wingo 2010-12-17 13:30:07 +01:00
parent cdab9fc625
commit 7cf64a0af1
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/boot-9.scm
View file

@ -3345,8 +3345,10 @@ module '(ice-9 q) '(make-q q-length))}."
;; FIXME: ;; FIXME:
(module-use! the-scm-module (resolve-interface '(srfi srfi-4))) (module-use! the-scm-module (resolve-interface '(srfi srfi-4)))
;; Set filename to #f to prevent reload.
(define-module (guile-user) (define-module (guile-user)
#:autoload (system base compile) (compile compile-file)) #:autoload (system base compile) (compile compile-file)
#:filename #f)
;; Remain in the `(guile)' module at compilation-time so that the ;; Remain in the `(guile)' module at compilation-time so that the
;; `-Wunused-toplevel' warning works as expected. ;; `-Wunused-toplevel' warning works as expected.