diff --git a/scheme/cyclone/libraries.sld b/scheme/cyclone/libraries.sld index 64a74a57..2a08ccc8 100644 --- a/scheme/cyclone/libraries.sld +++ b/scheme/cyclone/libraries.sld @@ -1,25 +1,25 @@ (define-library (scheme cyclone libraries) (import (scheme base) + (scheme read) ; TODO: what else? definitely need trans.scm ) (export - ;; TODO: get these from library scm file -;(define (library? ast) -;(define (lib:name ast) (cadr ast)) -;(define (lib:name->string name) -;(define (lib:name->symbol name) -;(define (lib:result result) -;(define (lib:exports ast) -;(define (lib:imports ast) -;(define (lib:body ast) -;(define (lib:includes ast) -;(define (lib:import->filename import . ext) -;(define (lib:import->path import) -;(define (lib:read-imports import) -;(define (lib:import->export-list import) -;(define (lib:resolve-imports imports) -;(define (lib:get-all-import-deps imports) -;(define (lib:get-dep-list libs/deps) + library? + lib:name + lib:name->string + lib:name->symbol + lib:result + lib:exports + lib:imports + lib:body + lib:includes + lib:import->filename + lib:import->path + lib:read-imports + lib:import->export-list + lib:resolve-imports + lib:get-all-import-deps + lib:get-dep-list ) (include "../../libraries.scm") ;(begin