Test case for (include)

This commit is contained in:
Justin Ethier 2015-05-14 14:28:49 -04:00
parent dd955d9b2f
commit 924b0943d2
2 changed files with 3 additions and 1 deletions

View file

@ -0,0 +1 @@
(define lib1-test "test of include from a library")

View file

@ -5,7 +5,8 @@
;;; A sample library
;;;
(define-library (libs lib1)
(export lib1-hello)
(export lib1-hello lib1-test)
(include "lib1.scm")
(import ;(scheme base)
;(scheme write)
(libs lib2))