default parent to #f

This commit is contained in:
Hat Kid
2024-04-06 00:42:47 +02:00
parent 1f56415307
commit 689c8a8647
+4 -1
View File
@@ -193,7 +193,10 @@
)
)
(virtual
`(define-virtual-state-hook ,state-name ,defstate-type ,new-state ,(eq? virtual 'override) :event ,event :enter ,enter :trans ,trans :exit ,exit :code ,code :post ,post)
`(begin
(set! (-> ,new-state parent) #f)
(define-virtual-state-hook ,state-name ,defstate-type ,new-state ,(eq? virtual 'override) :event ,event :enter ,enter :trans ,trans :exit ,exit :code ,code :post ,post)
)
)
(parent
`(begin