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

Adding temporary debug traces

Browse source
This commit is contained in:
Justin Ethier 2018-02-13 19:05:41 -05:00
parent e81f5b72bd
commit 488b6e162c
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/eval.sld
View file

@ -442,15 +442,21 @@
;; TODO: doing too much here, need to figure out a way to speed things up! ;; TODO: doing too much here, need to figure out a way to speed things up!
(sym (cond (sym (cond
((pair? lookup) ((pair? lookup)
(write `(lookup var ,lookup))
(newline)
(car lookup)) (car lookup))
(else (else
(call/cc (lambda (return) (call/cc (lambda (return)
(for-each (for-each
(lambda (v/r) (lambda (v/r)
;; Map renamed symbol back to one in env ;; Map renamed symbol back to one in env
(if (eq? exp (cdr v/r)) (when (eq? exp (cdr v/r))
(write `(reverse lookup var ,v/r))
(newline)
(return (car v/r)))) (return (car v/r))))
local-renamed) local-renamed)
(write `(NO lookup var ,exp ,local-renamed))
(newline)
(return exp))))))) ;; Not found, keep input symbol (return exp))))))) ;; Not found, keep input symbol
(lambda (env) (lambda (env)
(env:lookup-variable-value sym env)))) (env:lookup-variable-value sym env))))