mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-25 21:15:05 +02:00
16 lines
332 B
Scheme
16 lines
332 B
Scheme
;;;
|
|
;;; Justin Ethier
|
|
;;; husk scheme
|
|
;;;
|
|
;;; A sample library
|
|
;;;
|
|
(define-library (libs lib1)
|
|
(export lib1-hello)
|
|
(import (scheme base)
|
|
(scheme write)
|
|
(libs lib2))
|
|
(begin
|
|
(define (internal-func)
|
|
(write lib2-hello))
|
|
(define (lib1-hello)
|
|
(internal-func))))
|