mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 12:10:28 +02:00
Code Activity

* r4rs.scm (%load-verbosely): Reverted change to

Browse source 
`module-defined?', since the module system isn't bootstrapped when
we load r4rs.scm.  This is just a temporary fix to make the
repository version runnable.
This commit is contained in:
Mikael Djurfeldt 1997-02-27 23:05:23 +00:00
parent eb52a06bb3
commit 0065d90e1a
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ice-9/ChangeLog
View file

@ -1,3 +1,10 @@
Fri Feb 28 00:00:50 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* r4rs.scm (%load-verbosely): Reverted change to
`module-defined?', since the module system isn't bootstrapped when
we load r4rs.scm. This is just a temporary fix to make the
repository version runnable.
Thu Feb 27 23:25:47 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se> Thu Feb 27 23:25:47 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm: Removed the enabling of debug evaluator and * boot-9.scm: Removed the enabling of debug evaluator and

2
ice-9/r4rs.scm
View file

@ -124,7 +124,7 @@
;;;; Loading ;;;; Loading
(if (not (module-defined? (current-module) '%load-verbosely)) (if (not (defined? '%load-verbosely))
(define %load-verbosely #f)) (define %load-verbosely #f))
(define (assert-load-verbosity v) (set! %load-verbosely v)) (define (assert-load-verbosity v) (set! %load-verbosely v))