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

Fix

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-06-21 01:24:56 +00:00
parent c0997079b4
commit 03cd374d37
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
NEWS
View file

@ -14,7 +14,8 @@ Changes since Guile 1.4:
Example: Example:
(define m (make-module 1021 (list (resolve-interface '(ice-9 safe-r5rs))))) (use-modules (ice-9 safe))
(define m (make-safe-module))
;;; m will now be a module containing only a safe subset of R5RS ;;; m will now be a module containing only a safe subset of R5RS
(eval-in-module '(+ 1 2) m) --> 3 (eval-in-module '(+ 1 2) m) --> 3
(eval-in-module 'load m) --> ERROR: Unbound variable: load (eval-in-module 'load m) --> ERROR: Unbound variable: load

3
ice-9/safe.scm
View file

@ -29,3 +29,6 @@
(list n) (list n)
'())) '()))
safe-r5rs-interface) safe-r5rs-interface)
(define-public (make-safe-module)
(make-module 1021 (list safe-r5rs-interface)))