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-1.scm
1
;;; examples/modules/module-1.scm -- Module system demo.
2
3
;;; Commentary:
4
5
;;; Module 1 of the module demo program.
6
7
;;; Author: Martin Grabmueller
8
;;; Date: 2001-05-29
9
10
;;; Code:
11
12
(define-module (module-1))
13
14
(export foo bar)
15
16
(define (foo)
17
(display "module-1 foo")
18
(newline))
19
20
(define (bar)
21
(display "module-1 bar")
22
(newline))
23
24
;;; End of file.