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

Attempting to fix issues with Cyc_procedure

Browse source
This commit is contained in:
Justin Ethier 2015-07-06 22:28:34 -04:00
parent 9562137f34
commit 370af953c7
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
cgen.scm
View file

@ -811,12 +811,17 @@
(define *symbols* '())
(cond-expand
(chicken
(define (Cyc-reserved-symbol? sym) (member sym (list 'Cyc_procedure))))
(else #f))
(define (allocate-symbol sym)
; These are (at least for now) preallocated by the runtime
(define *reserved-symbols* (list 'Cyc_procedure))
;(define *reserved-symbols* (list 'Cyc_procedure))
(if (and (not (member sym *symbols*))
(not (member sym *reserved-symbols*)))
(not (Cyc-reserved-symbol? sym)))
(set! *symbols* (cons sym *symbols*))))
;; Lambda compilation.