This commit is contained in:
2026-01-25 17:13:18 +01:00
3 changed files with 7 additions and 8 deletions

View File

@@ -16,8 +16,8 @@
th (thought/register-thought! [:EH :IO :RETURN]
:data to
:reference (str "<" to "+_>"))]
(del/add-delegate th [:EH :PRIM :PARTIAL :+])
(extend/register-extension! th [th])
[parent th])))
;; Final addition, e.g. =(5 +) 5=.
@@ -29,7 +29,6 @@
:data [to from]
:reference (str "<" to "+" from ">"))]
(del/add-delegate th [:EH :LAZY [:EH :PRIM :NUM]])
(extend/register-extension! th [th])
[parent th])))
(def/define! [:EH :LAZY [:EH :PRIM :NUM] :REIFY]