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

* boot-9.scm: Added conditional loading of threads.scm.

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-10-05 17:47:59 +00:00
parent c275ddc708
commit 90895e5c8f
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3560,5 +3560,16 @@
;;; ;;;
(if (memq 'debug-extensions *features*) (if (memq 'debug-extensions *features*)
(define-module (guile) :use-module (ice-9 debug)) (define-module (guile) :use-module (ice-9 debug)))
(define-module (guile)))
;;; {Load thread code if threads are present.}
;;;
;;; *fixme* This is a temporary solution.
;;;
(if (memq 'threads *features*)
(define-module (guile) :use-module (ice-9 threads)))
(define-module (guile))