From 7402f287b256d85db73080b2442d27c81cb04bc6 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 3 Sep 2016 00:15:37 -0400 Subject: [PATCH] Debugging --- scheme/base.sld | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/scheme/base.sld b/scheme/base.sld index 9ea9ba0d..1e28a9a6 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -1356,10 +1356,14 @@ (else free)))) (define (expand-template tmpl vars) (let lp ((t tmpl) (dim 0)) -;(Cyc-write (list 'TMPL tmpl 'vars vars) (current-output-port)) +;(Cyc-write (list 't t) (current-output-port)) +;(Cyc-display "\n" (current-output-port)) +;(Cyc-write (list 'vars vars 'TMPL tmpl ) (current-output-port)) ;(Cyc-display "\n" (current-output-port)) (cond ((identifier? t) +;(Cyc-write (list 't t 'vars vars) (current-output-port)) +;(Cyc-display "\n" (current-output-port)) (cond ((find (lambda (v) (eq? t (car v))) vars) => (lambda (cell)