HCoop
/
bpt
/
guile.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Merge branch 'boehm-demers-weiser-gc' into bdw-gc-static-alloc
[bpt/guile.git]
/
examples
/
modules
/
module-2.scm
1
;;; examples/modules/module-2.scm -- Module system demo.
2
3
;;; Commentary:
4
5
;;; Module 2 of the module demo program.
6
7
;;; Author: Martin Grabmueller
8
;;; Date: 2001-05-29
9
10
;;; Code:
11
12
(define-module (module-2))
13
14
(export foo bar braz)
15
16
(define (foo)
17
(display "module-2 foo")
18
(newline))
19
20
(define (bar)
21
(display "module-2 bar")
22
(newline))
23
24
(define (braz)
25
(display "module-2 braz")
26
(newline))
27
28
;;; End of file.