mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-24 04:25:06 +02:00
Temporarily adding cyc:get-lib definition
This commit is contained in:
parent
1d72873117
commit
143ef49c20
1 changed files with 6 additions and 0 deletions
|
@ -12,6 +12,12 @@
|
||||||
;; probably should also clean up some of the function names, this is
|
;; probably should also clean up some of the function names, this is
|
||||||
;; not a very clean or nice API at the moment.
|
;; not a very clean or nice API at the moment.
|
||||||
;;
|
;;
|
||||||
|
|
||||||
|
;; TODO: this definition is just temporary until we figure out how to get this info.
|
||||||
|
;; this is problematic as it has to work for the bootstrap and the actual cyclone comp.
|
||||||
|
;; although I suppose it would be OK if you have to bootstrap from a hardcoded dir
|
||||||
|
(define (cyc:get-lib-dir) "/home/justin/Documents/cyclone/")
|
||||||
|
|
||||||
(define (library? ast)
|
(define (library? ast)
|
||||||
(tagged-list? 'define-library ast))
|
(tagged-list? 'define-library ast))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue