Handle include directory

This commit is contained in:
Justin Ethier 2015-07-18 22:14:37 -04:00
parent d6d876ae5b
commit a634fd7c6e

View file

@ -19,8 +19,10 @@
(cond-expand (cond-expand
(chicken (chicken
(define (Cyc-installation-dir . opt) (define (Cyc-installation-dir . opt)
;; Ignore opt and always assume current dir for chicken, since it is just dev (if (equal? '(inc) opt)
"/home/justin/Documents/cyclone") "/home/justin/Documents/cyclone/include"
;; Ignore opt and always assume current dir for chicken, since it is just dev
"/home/justin/Documents/cyclone"))
(require-extension extras) ;; pretty-print (require-extension extras) ;; pretty-print
(require-extension chicken-syntax) ;; when (require-extension chicken-syntax) ;; when
(require-extension srfi-1) ;; every (require-extension srfi-1) ;; every