mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-21 19:20:21 +02:00
Code Activity

* boot-9.scm (provided?): New function.

Browse source
This commit is contained in:
Jim Blandy 1999-05-02 17:27:05 +00:00
parent 699139fd17
commit 50706e9475
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -34,6 +34,12 @@
(if (not (memq sym *features*)) (if (not (memq sym *features*))
(set! *features* (cons sym *features*)))) (set! *features* (cons sym *features*))))
;;; Return #t iff FEATURE is available to this Guile interpreter.
;;; In SLIB, provided? also checks to see if the module is available.
;;; We should do that too, but don't.
(define (provided? feature)
(and (memq feature *features*) #t))
;;; {R4RS compliance} ;;; {R4RS compliance}