miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix indexing bug, first partial eval!

Browse Source
This commit is contained in:
Nathan Braswell
2021-11-22 01:46:59 -05:00
parent d26fcee9b6
commit 7c32c3811a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
partial_eval.csc
View File

@@ -62,7 +62,7 @@
(array? list?)
(concat append)
(len length)
(idx (lambda (x i) (list-ref x (if (< i 0) (+ i 1 (len x)) i))))
(idx (lambda (x i) (list-ref x (if (< i 0) (+ i (len x)) i))))
(false #f)
(true #t)
(nil '())
@@ -187,7 +187,7 @@
) (add-dict-to-env upper_env vdict))))
(true (error (str "some other strip? " x)))
)
))) (lambda (x) (let ((_ (print_strip "stripping: " x)) (r (helper x false)) (_ (println "result of strip " r))) r))))
))) (lambda (x) (let* ((_ (print_strip "stripping: " x)) (r (helper x false)) (_ (println "result of strip " r))) r))))
; A bit wild, but what if instead of is_value we had an evaluation level integer, kinda like wrap?
; when lowering, it could just turn into multiple evals or somesuch, though we'd have to be careful of envs...