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

Removed debug code

Browse source
This commit is contained in:
Justin Ethier 2015-07-06 23:39:55 -04:00
parent 602295e29c
commit f4b5cd4e20
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
cgen.scm
View file

@ -817,9 +817,6 @@
(else #f)) (else #f))
(define (allocate-symbol sym) (define (allocate-symbol sym)
; These are (at least for now) preallocated by the runtime
;(define *reserved-symbols* (list 'Cyc_procedure))
(if (and (not (member sym *symbols*)) (if (and (not (member sym *symbols*))
(not (Cyc-reserved-symbol? sym))) (not (Cyc-reserved-symbol? sym)))
(set! *symbols* (cons sym *symbols*)))) (set! *symbols* (cons sym *symbols*))))