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