mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-20 14:19:17 +02:00
18 lines
382 B
Scheme
18 lines
382 B
Scheme
;;;
|
|
;;; Justin Ethier
|
|
;;; husk scheme
|
|
;;;
|
|
;;; A sample library
|
|
;;;
|
|
(define-library (libs lib1)
|
|
(export lib1-hello lib1-test)
|
|
(include "lib1.scm")
|
|
(import (scheme base)
|
|
;(scheme write)
|
|
(libs lib2))
|
|
(begin
|
|
(define (internal-func)
|
|
(write lib2-hello))
|
|
(define (lib1-hello)
|
|
(internal-func)
|
|
1)))
|