[bpt/guile.git] / examples / modules / module-1.scm

;;; 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))

;;; End of file.
Commit	Line	Data
2de7ddb7 MG	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))
673509f8 MG	23
673509f8 MG	24	;;; End of file.