Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP

Browse source
This commit is contained in:
Justin Ethier 2015-07-06 22:59:07 -04:00
parent 40bc76ac65
commit 1fb0ae623b
2 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
cgen.scm
View file

@ -817,6 +817,7 @@
(else #f))
(define (allocate-symbol sym)
(trace:error `(JAE DEBUG allocate-symbol ,sym ,(Cyc-reserved-symbol? sym)))
(if (and (not (member sym *symbols*))
(not (Cyc-reserved-symbol? sym)))
(set! *symbols* (cons sym *symbols*))))

7
runtime.c
View file

@ -614,11 +614,8 @@ object Cyc_is_symbol(object o){
return boolean_f;}
object Cyc_is_reserved_symbol(object o) {
TODO: why did this return #t all the time in self-compiled cyclone
when equalp was used below instead of equal? should switch them and
debug to investigate. is this the same reason why the Cyc_procedure error
is thrown when trying to self-compile eval.c????
if (Cyc_is_symbol(o) == boolean_t && equal(o, quote_Cyc_191procedure))
if (Cyc_is_symbol(o) == boolean_t &&
equalp(o, quote_Cyc_191procedure) == boolean_t)
return boolean_t;
return boolean_f; }