akko/EMPTYHEAD
1
0
Fork 0
Code Issues 8 Pull Requests Projects Releases Wiki Activity

Fixed buge with get-delegates

Browse Source
This commit is contained in:
Akko
2026-01-25 17:12:19 +01:00
parent 335377587b
commit 48dbfef16e
3 changed files with 13 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/cljs/emptyhead/newlib/math/arithmetic.cljs
View File

@@ -16,7 +16,7 @@
th (thought/register-thought! [:EH :IO :RETURN]
:data to
:reference (str "<" to "+_>"))]
(del/add-delegate th [[:EH :PRIM :PARTIAL :+]])
(del/add-delegate th [:EH :PRIM :PARTIAL :+])
(extend/register-extension! th [th])
[parent th])))
@@ -28,7 +28,7 @@
th (thought/register-thought! [:EH :IO :RETURN]
:data [to from]
:reference (str "<" to "+" from ">"))]
(del/add-delegate th [[:EH :LAZY [:EH :PRIM :NUM]]])
(del/add-delegate th [:EH :LAZY [:EH :PRIM :NUM]])
(extend/register-extension! th [th])
[parent th])))
@@ -39,7 +39,7 @@
from (if (symbol? from) (msg/apply-msg to [:EH :REIFY]) from)]
[parent (+ to from)])))
(del/add-delegate [:EH :LAZY [:EH :PRIM :NUM]] [[:EH :PRIM :NUM]])
(del/add-delegate [:EH :LAZY [:EH :PRIM :NUM]] [:EH :PRIM :NUM])
(thought/register-singleton! [:EH :PRIM :PARTIAL :+ [:EH :PRIM :NUM]])
(msg/register-single-impl [:EH :PRIM :PARTIAL :+] [:EH :PRIM :NUM] [:EH :PRIM :PARTIAL :+ [:EH :PRIM :NUM]])