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

Fixes for self-hosting

Browse source
This commit is contained in:
Justin Ethier 2015-06-29 21:16:43 -04:00
parent 1b2560f5a4
commit 7b1092e27a
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
transforms.scm
View file

@ -10,6 +10,9 @@
(cond-expand (cond-expand
(chicken (chicken
(load (string-append (cyc:get-lib-dir) "scheme/common.scm"))) (load (string-append (cyc:get-lib-dir) "scheme/common.scm")))
(cyclone
;; Temporary work-around for pp not being implemented yet
(define pretty-print write))
(else (else
#f)) #f))
@ -216,8 +219,11 @@
#f #f
(if (eq? sym (car S)) (if (eq? sym (car S))
#t #t
(member sym (cdr S))))) (member sym (cdr S))))))
(else #f))
(cond-expand
(cyclone
; void : -> void ; void : -> void
(define (void) (if #f #t))) (define (void) (if #f #t)))
(else #f)) (else #f))