Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2015-05-13 11:17:09 -04:00
parent 722b6f22ef
commit b51cd6e0f0
3 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
cyclone.scm
View file

@ -230,7 +230,7 @@
(if cc? (if cc?
(cond (cond
(program? (program?
; TODO: (write `(DEBUG ,(lib:imports->objs (cdar input-program) "."))) (write `(DEBUG ,(lib:imports->objs (cdar in-prog) ".")))
(system (system
;; -I is a hack, real answer is to use 'make install' to place .h file ;; -I is a hack, real answer is to use 'make install' to place .h file
;TODO: n eed to link to object files from lib:import->obj-file ;TODO: n eed to link to object files from lib:import->obj-file

4
examples/hello-library/hello.scm
View file

@ -1,9 +1,9 @@
; TODO: just adding temporarily until import is supported. ; TODO: just adding temporarily until import is supported.
; idea is to try and see how the C code needs to change to ; idea is to try and see how the C code needs to change to
(import ;(scheme base) (import ;(scheme base)
(libs lib2) (libs lib1)
;(rename (prefix (libs lib1) test-)) ;(rename (prefix (libs lib1) test-))
) )
;(test-lib1-hello) ;(test-lib1-hello)
(write lib2-hello) (write lib1-hello)

4
examples/hello-library/libs/lib1.sld
View file

@ -6,8 +6,8 @@
;;; ;;;
(define-library (libs lib1) (define-library (libs lib1)
(export lib1-hello) (export lib1-hello)
(import (scheme base) (import ;(scheme base)
(scheme write) ;(scheme write)
(libs lib2)) (libs lib2))
(begin (begin
(define (internal-func) (define (internal-func)