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

Removed debug code

Browse source
This commit is contained in:
Justin Ethier 2015-10-20 18:43:02 -04:00
parent a6fc199907
commit da4e7a9d87
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/eval.sld
View file

@ -11,7 +11,7 @@
;(scheme cyclone libraries) ;; for handling import sets ;(scheme cyclone libraries) ;; for handling import sets
(scheme base) (scheme base)
(scheme file) (scheme file)
(scheme write) ;; Only used for debugging ;(scheme write) ;; Only used for debugging
(scheme read)) (scheme read))
(export (export
;environment ;environment
@ -252,8 +252,7 @@
primitive-procedures)) primitive-procedures))
(define (primitive-procedure-objects) (define (primitive-procedure-objects)
(write `(DEBUG ,primitive-procedures)) (map (lambda (proc) (list 'primitive (cadr proc)))
(map (lambda (proc) (write `(DEBUG2 ,proc)) (list 'primitive (cadr proc)))
primitive-procedures)) primitive-procedures))
(define (apply-primitive-procedure proc args) (define (apply-primitive-procedure proc args)