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

Added debug output

Browse source
This commit is contained in:
Justin Ethier 2015-08-24 22:59:37 -04:00
parent 82ba3fe18e
commit 2c2c5b9da1
2 changed files with 18 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/cyclone/macros.sld
View file

@ -67,7 +67,7 @@
;; Assume evaluated macro ;; Assume evaluated macro
(newline) (newline)
(display "/* ") (display "/* ")
(display (list 'evaluating-macro macro exp)) (display (list 'evaluating-macro macro exp env-vars env-vals))
(display " */ ") (display " */ ")
(eval (eval
(list (list

23
scheme/eval.sld
View file

@ -444,10 +444,6 @@
(loop (car procs) (cdr procs)))) (loop (car procs) (cdr procs))))
(define (pre-analyze-application exp a-env) (define (pre-analyze-application exp a-env)
(newline)
(display "/* ")
(display (list 'pre-analyze exp))
(display " */ ")
;; Notes: ;; Notes:
;; ;;
;; look up symbol in env, and expand if it is a macro ;; look up symbol in env, and expand if it is a macro
@ -469,13 +465,28 @@
(expand (lambda (macro-op) (expand (lambda (macro-op)
(newline) (newline)
(display "/* ") (display "/* ")
(display (list 'expand macro-op (operands exp))) (display (list 'expand macro-op (operands exp)
(car exp)
(macro? var)
(compound-macro? var)
(macro? macro-op)
(Cyc-get-cvar (cadr var)) ;; this is what is analyzed
(compound-macro? op)
))
(display " */ ") (display " */ ")
(analyze (apply macro-op (analyze (apply macro-op
(list (cons macro-op (operands exp)) (list (cons (car exp) (operands exp))
(lambda (sym) sym) (lambda (sym) sym)
(lambda (a b) (eq? a b)))) (lambda (a b) (eq? a b))))
a-env)))) a-env))))
(newline)
(display "/* ")
(display (list 'pre-analyze
(macro? var)
(compound-macro? var)
(compound-macro? op)
exp))
(display " */ ")
(cond (cond
;; compiled macro ;; compiled macro
((macro? var) ((macro? var)