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

Debugging

Browse source
This commit is contained in:
Justin Ethier 2016-09-03 00:15:37 -04:00
parent b7a67b6809
commit 7402f287b2
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/base.sld
View file

@ -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)