mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-11 23:07:36 +02:00
Debugging
This commit is contained in:
parent
b7a67b6809
commit
7402f287b2
1 changed files with 5 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue