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