From f4b5cd4e201a5f4ac53ebeaff9572a6cb5cecad3 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 6 Jul 2015 23:39:55 -0400 Subject: [PATCH] Removed debug code --- cgen.scm | 3 --- 1 file changed, 3 deletions(-) diff --git a/cgen.scm b/cgen.scm index f57c9b8c..2dbb95b7 100644 --- a/cgen.scm +++ b/cgen.scm @@ -817,9 +817,6 @@ (else #f)) (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*)) (not (Cyc-reserved-symbol? sym))) (set! *symbols* (cons sym *symbols*))))