X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Factors.scm;fp=8sync%2Factors.scm;h=fdeccf39090d6cddb9cdbd273f3db2a616c00d5b;hp=d6dc148812b1576a79e85093f19373d605aa4bde;hb=cef6072905deb71f3f2277dda21a78595d295901;hpb=8bdfa5c8f81d4e46d57c367da23cd8ea676ad717 diff --git a/8sync/actors.scm b/8sync/actors.scm index d6dc148..fdeccf3 100644 --- a/8sync/actors.scm +++ b/8sync/actors.scm @@ -311,7 +311,7 @@ raise an exception if an error." "Construct an alist of (symbol . method), where the method is wrapped with wrap-apply to facilitate live hacking and allow the method definition to come after class definition." - (wrap-rmeta-slot + (build-rmeta-slot (list (cons (quote symbol) (wrap-apply method)) ...)))