mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 11:50:28 +02:00
safe/evil.scm, safe/README, modules/README, modules/main, modules/module-0.scm, modules/module-1.scm, modules/module-2.scm: Minor cleanup. * README: Added intro stuff, restructured a bit. * box-dynamic/README, box-module/README, box/README: Cleanup and restructuring. * box-dynamic-module/box-mixed.scm: New file, demonstrating usage of extension library functionality, but without exporting procedures from the library. Thanks to Thomas Wawrzinek for the idea and example code! * box-dynamic-module/box-module.scm: Add comments, export make-box, box-ref, box-set!. * box-dynamic-module/README: Integrate new module (box-mixed), restructure and cleanup a bit.
33 lines
789 B
Scheme
33 lines
789 B
Scheme
;;; examples/safe/untrusted.scm -- Scheme file to be run in a safe
|
|
;;; environment.
|
|
|
|
;;; Commentary:
|
|
|
|
;;; This is an example file to be evaluated by the `safe' program in
|
|
;;; this directory.
|
|
;;;
|
|
;;; *Note* that the files in this directory are only suitable for
|
|
;;; demonstration purposes, if you have to implement safe evaluation
|
|
;;; mechanisms in important environments, you will have to do more
|
|
;;; than shown here -- for example disabling input/output operations.
|
|
|
|
;;; Author: Martin Grabmueller
|
|
;;; Date: 2001-05-30
|
|
|
|
;;; Code:
|
|
|
|
;; fact -- the everlasting factorial function...
|
|
;;
|
|
(define (fact n)
|
|
(if (< n 2)
|
|
1
|
|
(* n (fact (- n 1)))))
|
|
|
|
;; Display the factorial of 0..9 to the terminal.
|
|
;;
|
|
(do ((x 0 (+ x 1)))
|
|
((= x 11))
|
|
(display (fact x))
|
|
(newline))
|
|
|
|
;;; End of file.
|