Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15: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
(chicken
(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
#f))
@ -216,8 +219,11 @@
#f
(if (eq? sym (car S))
#t
(member sym (cdr S)))))
(member sym (cdr S))))))
(else #f))
(cond-expand
(cyclone
; void : -> void
(define (void) (if #f #t)))
(else #f))