From 90895e5c8f57c669df3dd58c7438bfd1e9ae522f Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sat, 5 Oct 1996 17:47:59 +0000 Subject: [PATCH] * boot-9.scm: Added conditional loading of threads.scm. --- ice-9/boot-9.scm | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index a67afec93..d3299a69a 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -3560,5 +3560,16 @@ ;;; (if (memq 'debug-extensions *features*) - (define-module (guile) :use-module (ice-9 debug)) - (define-module (guile))) + (define-module (guile) :use-module (ice-9 debug))) + + + +;;; {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))