diff options
Diffstat (limited to 'stdlib/struct.tl')
| -rw-r--r-- | stdlib/struct.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/struct.tl b/stdlib/struct.tl index 726b7fce..b6f545f4 100644 --- a/stdlib/struct.tl +++ b/stdlib/struct.tl @@ -213,10 +213,10 @@ ,*(if opt-args (mapcar (ret ^(,@1 nil ,@2)) o-gens p-gens))) - ,*(mapcar (ret ^(slotset ,arg-sym ',@1 ,@2)) + ,*(mapcar (ret ^(set (qref ,arg-sym ,@1) ,@2)) req-args r-gens) ,*(mapcar (ret ^(if ,@3 - (slotset ,arg-sym ',@1 ,@2))) + (set (qref ,arg-sym ,@1) ,@2))) opt-args o-gens p-gens)))))) ,(if instance-postinit-forms ^(sys:meth-lambda ,name :postinit (,arg-sym) |