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

Only print when debugging as a program

Browse source
This commit is contained in:
Justin Ethier 2019-09-10 17:47:26 -04:00
parent 526032e52f
commit 95922d257e
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/cyclone/pass-validate-syntax.scm
View file

@ -57,7 +57,9 @@
(append vars (filter include-var? syms))) (append vars (filter include-var? syms)))
(define (search exp vars) (define (search exp vars)
(pretty-print `(search ,exp ,vars))(newline) (cond-expand
(program
(pretty-print `(search ,exp ,vars))(newline))) ;; Debugging
(cond (cond
;((ast:lambda? exp) 'TODO) ;((ast:lambda? exp) 'TODO)
((const? exp) #f) ((const? exp) #f)