mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 03:40:34 +02:00
22 lines
336 B
Scheme
22 lines
336 B
Scheme
;;; 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))
|