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

(*features*): Remove 'random, need to use the slib code for

Browse source 
that module since guile doesn't provide `random:chunk'.
This commit is contained in:
Kevin Ryde 2005-03-07 22:52:01 +00:00
parent b9d9ad3a2a
commit 84269297c3
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
ice-9/slib.scm
View file

@ -187,6 +187,21 @@
(set! *features* (delq 'array *features*))
(set! *features* (delq 'array-for-each *features*))
;; The random module in slib 3a1 provides a `random:chunk' which is used by
;; the random-inexact module. Guile doesn't provide random:chunk so we must
;; remove 'random from `*features*' to use the slib code.
;;
;; ENHANCE-ME: Maybe Guile could provide a `random:chunk', the rest of the
;; random module is already the same as Guile.
;;
;; FIXME: As per the array bits above, *features* is shared by slib and the
;; guile core, so removing 'random has the unhappy effect of making it look
;; like this isn't in the core. Let's assume random numbers have been
;; present unconditionally long enough that no guile-specific code will
;; bother to test.
;;
(set! *features* (delq 'random *features*))
;;; FIXME: Because uers want require to search the path, this uses
;;; load-from-path, which probably isn't a hot idea. slib